OFFSET
1,1
LINKS
Christian N. K. Anderson, Table of n, a(n) for n = 1..10000
Christian N. K. Anderson, All the integers that yield a(n) for n=1..10000
EXAMPLE
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.
PROG
(R) digsqsum<-function(x) sum(as.numeric(unlist(strsplit(as.character(x), split="")))^2)
1:500+sapply(1:500, digsqsum)->y
table(y)->ty; names(ty[ty>1])
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Kevin L. Schwartz and Christian N. K. Anderson, Apr 25 2013
STATUS
approved