A160711 Cyclops squares: squares (A000290) that are also cyclops numbers (A134808).

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

Links

Kenny Lau, Table of n, a(n) for n = 1..20001

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 *)

Crossrefs

Cf. A000290, A134808, A134809, A134148, A138131, A153806, A160712, A160717, A239828.

Sequence in context: A096930 A233720 A285845 * A129087 A239828 A156942

Adjacent sequences: A160708 A160709 A160710 * A160712 A160713 A160714

Keyword

base,easy,nonn

Author

Omar E. Pol, Jun 08 2009

Status

approved