lastsquare = 1;
nextsquare = -1;
lastcube = -1;
midcube = 0;
nextcube = 1;
Gensquares[] := Module[{},
  lastsquare += nextsquare;
  nextsquare += 2;
  squares = lastsquare;
  squares
  ]
Gencubes[] := Module[{},
  lastcube += nextcube;
  nextcube += midcube;
  midcube += 6;
  cubes = lastcube
  ]


c = Gencubes[];
Do[
 While[True,
  s = Gensquares[];
  While[c < s,
   c = Gencubes[];
   ];
  If[s =!= c,
   Break[]
   ];
  ];
 If[i > 20,
  Print[s]
  ]
 ,
 {i, 30}
 ]