OFFSET
1,2
COMMENTS
Any one of these terms can have an arbitrary number of 0's in between any two digits. Thus, the numbers with 0's have been omitted as trivial.
LINKS
Jonathan Schwartz, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[1557], (d = IntegerDigits[#]; Min[d] > 0 && IntegerQ@ Sqrt@ Total[d^2]) &] (* Giovanni Resta, Aug 14 2017 *)
PROG
(PARI) for(n=1, 2000, d=digits(n); if(vecsort(d, , 8)[1], s=0; for(i=1, #d, s+=d[i]^2); if(issquare(s), print1(n, ", "))))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Feb 11 2015
STATUS
approved