login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 14 02:19 EST 2019. Contains 329108 sequences. (Running on oeis4.)