A031162 Numbers that are both lucky and square.

1, 9, 25, 49, 169, 289, 361, 529, 729, 841, 961, 1369, 2209, 3481, 3721, 3969, 4761, 5041, 7921, 9409, 9801, 10609, 12321, 15129, 17689, 20449, 21609, 24025, 24649, 32041, 32761, 35721, 36481, 42025, 42849, 43681, 50625, 52441, 53361

Offset

1,2

Links

Donovan Johnson, Table of n, a(n) for n = 1..2512 (terms < 10^9)

Mathematica

lst = Range[1, 73440, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Select[lst, IntegerQ@ Sqrt@# &] (* Robert G. Wilson v, May 12 2006 *)

Crossrefs

Cf. A000959, A031163.

Sequence in context: A266132 A112629 A225322 * A371085 A362971 A348232

Adjacent sequences: A031159 A031160 A031161 * A031163 A031164 A031165

Keyword

nonn

Author

Patrick De Geest

Status

approved