|
|
A066568
|
|
a(n) = n - sum of digits of n.
|
|
12
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 63, 63, 63, 63, 63, 63
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,11
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(23) = 23 - 2 - 3 = 18, a(2345) = 2345 - 2 - 3 - 4 - 5 = 2331.
|
|
MATHEMATICA
|
Table[n-Total[IntegerDigits[n]], {n, 0, 80}] (* Harvey P. Dale, Sep 19 2011 *)
|
|
PROG
|
(PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) }
{ for (n=0, 1000, write("b066568.txt", n, " ", n - SumD(n)) ) } \\ Harry J. Smith, Mar 05 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Larry Reeves (larryr(AT)acm.org), Dec 21 2001
|
|
STATUS
|
approved
|
|
|
|