|
Search: id:A070565
|
|
|
| A070565 |
|
n - product of digits of n. |
|
+0
2
|
|
| 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 30, 28, 26, 24, 22, 20, 18, 16, 14, 12, 40, 37, 34, 31, 28, 25, 22, 19, 16, 13, 50, 46, 42, 38, 34, 30, 26, 22, 18, 14, 60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 70, 64, 58
(list; graph; listen)
|
|
|
OFFSET
|
0,11
|
|
|
EXAMPLE
|
a(20) = 20 - 2*0 = 20, a(22) = 22 - 2*2 = 18.
|
|
MATHEMATICA
|
Table[n - Times @@ IntegerDigits[n], {n, 0, 75}]
|
|
PROGRAM
|
(PARI) for(n=1, 100, s=ceil(log(n)/log(10)); print1(n-prod(i=0, s-1, floor(n/10^i*1.)-10*floor(n/10^(i+1)*1.)), ", "))
|
|
CROSSREFS
|
Cf. A062329.
Sequence in context: A072803 A010692 A109751 this_sequence A091837 A003855 A004209
Adjacent sequences: A070562 A070563 A070564 this_sequence A070566 A070567 A070568
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
njas, May 07 2002
|
|
EXTENSIONS
|
More terms from Benoit Cloitre (benoit7848c(AT)orange.fr) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 09 2002
|
|
|
Search completed in 0.002 seconds
|
