OFFSET
1,2
EXAMPLE
11369 is in the sequence because 1^2+1^2+3^2+6^2+9^2 = 128 = 2^7.
MATHEMATICA
Select[Range[100000], IntegerQ[Log[2, Plus @@ (IntegerDigits[#]^2)]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Nov 29 2010
STATUS
approved