login
A160711
Cyclops squares: squares (A000290) that are also cyclops numbers (A134808).
12
0, 11025, 19044, 21025, 24025, 32041, 38025, 42025, 47089, 51076, 58081, 59049, 65025, 66049, 67081, 75076, 87025, 93025, 1110916, 1140624, 1170724, 1190281, 1240996, 1270129, 1290496, 1340964, 1350244, 1380625, 1420864, 1430416
OFFSET
1,2
EXAMPLE
19044 is in the sequence because it is a square (138^2) and is also a cyclops number (odd number of digits, middle digit is the only zero).
11025 is in the sequence because it is a square (105^2) and is also a cyclops number (odd number of digits, middle digit is the only zero). - Michael B. Porter, Jul 09 2016
MATHEMATICA
Select[Range[0, 1200]^2, And[OddQ@ Length@ #, #[[Ceiling[Length[#]/2]]] == 0, Count[#, 0] == 1] &@ IntegerDigits@ # &] (* Michael De Vlieger, Jul 08 2016 *)
cnQ[n_]:=Module[{len=IntegerLength[n]}, OddQ[len]&&DigitCount[n, 10, 0]==1 && IntegerDigits[n][[(len+1)/2]]==0]; Join[{0}, Select[Range[1200]^2, cnQ]] (* Harvey P. Dale, Mar 19 2018 *)
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Jun 08 2009
STATUS
approved