|
|
A225049
|
|
Numbers that can be expressed as n plus sum of squared digits(n) in more than one way.
|
|
2
|
|
|
30, 41, 56, 81, 95, 96, 98, 101, 112, 114, 121, 125, 131, 142, 146, 152, 157, 168, 173, 177, 182, 186, 191, 196, 197, 199, 206, 209, 213, 215, 216, 217, 227, 230, 232, 234, 240, 243, 245, 247, 248, 257, 260, 262, 266, 272, 276, 284, 285, 287, 292, 299, 300
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|