A225049 - OEIS

%I #17 Apr 27 2013 15:00:00

%S 30,41,56,81,95,96,98,101,112,114,121,125,131,142,146,152,157,168,173,

%T 177,182,186,191,196,197,199,206,209,213,215,216,217,227,230,232,234,

%U 240,243,245,247,248,257,260,262,266,272,276,284,285,287,292,299,300

%N Numbers that can be expressed as n plus sum of squared digits(n) in more than one way.

%H Christian N. K. Anderson, <a href="/A225049/b225049.txt">Table of n, a(n) for n = 1..10000</a>

%H Christian N. K. Anderson, <a href="/A225049/a225049.txt">All the integers that yield a(n)</a> for n=1..10000

%e a(13) = 131 is included because 131 = 57+5^2+7^2 = 73+7^2+3^2 = 105+1^2+5^2 = 122 + 1^2+4^2+4^2.

%o (R) digsqsum<-function(x) sum(as.numeric(unlist(strsplit(as.character(x),split="")))^2)

%o 1:500+sapply(1:500,digsqsum)->y

%o table(y)->ty; names(ty[ty>1])

%Y Cf. A225048, A003052, A003219, A003132, A062028, A066568.

%K nonn,base

%O 1,1

%A _Kevin L. Schwartz_ and _Christian N. K. Anderson_, Apr 25 2013