OFFSET
1,1
COMMENTS
Corresponding squares: 1_123_6, 123_21, 123_201, 123_904, 7_123_36, 1_123_600, 123_2100, 123_4321,123_6544, 123_8769, 28_123_29, 573_123_6.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
s={}; Do[If[ !StringFreeQ[ToString[k^2], "123"], AppendTo[s, k]; Print[k]], {k, 0, 10000}]
Select[Range[7000], SequenceCount[IntegerDigits[#^2], {1, 2, 3}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Nov 02 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 24 2010
STATUS
approved