|
|
A174876
|
|
Numbers n such that the sum of squares of their digits > n.
|
|
1
|
|
|
2, 3, 4, 5, 6, 7, 8, 9, 14, 15, 16, 17, 18, 19, 25, 26, 27, 28, 29, 36, 37, 38, 39, 46, 47, 48, 49, 56, 57, 58, 59, 66, 67, 68, 69, 76, 77, 78, 79, 85, 86, 87, 88, 89, 94, 95, 96, 97, 98, 99
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The sequence is finite and contains 50 numbers. If n > 99, the sum of squares of digits of n < n.
|
|
LINKS
|
|
|
EXAMPLE
|
56 is in the sequence because 5^2 + 6^2 = 61 > 56.
|
|
MAPLE
|
with(numtheory):k:=0:for n from 1 to 200do:l:=length(n):n0:=n:s:=0:for m from
1 to l do:q:=n0:u:=irem(q, 10):v:=iquo(q, 10):n0:=v :s:=s+u^2:od: if s>n then
k:=k+1:printf(`%d, `, n):else fi:od:print(k):
|
|
PROG
|
(Sage) A174876 = [n for n in IntegerRange(1, 1000) if sum(d**2 for d in n.digits()) > n] # D. S. McNeil, Dec 02 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|