OFFSET
1,1
COMMENTS
Corresponding squares: 1234_321, 1234_1169, 1234_8196, 8_1234_169, 1234_09881, 1234_32100, 1234_54321, 1234_76544, 1234_98769, 206_1234_49.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
s={}; Do[If[ !StringFreeQ[ToString[k^2], "1234"], AppendTo[s, k]], {k, 0, 100000}]
Select[Range[50000], SequenceCount[IntegerDigits[#^2], {1, 2, 3, 4}]>0&] (* Harvey P. Dale, May 12 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 24 2010
STATUS
approved