OFFSET
1,1
COMMENTS
Subsequence of A156638. [Bruno Berselli, Sep 28 2015]
EXAMPLE
4 is in sequence because 4^2 = 16 and 1+6 = 7.
MATHEMATICA
Select[Range[10^7], Total[IntegerDigits[#^2]] == 7 &]
PROG
(Magma) [n: n in [1..2*10^7] | &+Intseq(n^2) eq 7];
(PARI) for(n=1, 1e8, if (sumdigits(n^2) == 7, print1(n", "))) \\ Altug Alkan, Sep 28 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Sep 28 2015
STATUS
approved