A174876 Numbers n such that the sum of squares of their digits > n.

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

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: A066310 A342226 A032987 * A092597 A335134 A334918

Adjacent sequences: A174873 A174874 A174875 * A174877 A174878 A174879

Keyword

nonn,base,fini,full

Author

Michel Lagneau, Dec 02 2010

Status

approved