|
%I #11 Jul 13 2015 22:39:08
%S 1,9,25,49,169,289,361,529,729,841,961,1369,2209,3481,3721,3969,4761,
%T 5041,7921,9409,9801,10609,12321,15129,17689,20449,21609,24025,24649,
%U 32041,32761,35721,36481,42025,42849,43681,50625,52441,53361
%N Numbers that are both lucky and square.
%H Donovan Johnson, <a href="/A031162/b031162.txt">Table of n, a(n) for n = 1..2512</a> (terms < 10^9)
%t 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 *)
%Y Cf. A000959, A031163.
%K nonn
%O 1,2
%A _Patrick De Geest_
|
