A225049 Numbers that can be expressed as n plus sum of squared digits(n) in more than one way.
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
Offset: 1
Examples
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.
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
Programs
-
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])