

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

Table of n, a(n) for n=1..50.


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

Sequence in context: A244155 A066310 A032987 * A092597 A125506 A079334
Adjacent sequences: A174873 A174874 A174875 * A174877 A174878 A174879


KEYWORD

nonn,base,fini,full


AUTHOR

Michel Lagneau, Dec 02 2010


STATUS

approved



