|
Search: id:A067079
|
|
|
| A067079 |
|
If n = abcd... in decimal notation then the right digitorial function Rd(n) = abcd...*bcd...*cd...*d...*... |
|
+0
6
|
|
| 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 11, 24, 39, 56, 75, 96, 119, 144, 171, 0, 21, 44, 69, 96, 125, 156, 189, 224, 261, 0, 31, 64, 99, 136, 175, 216, 259, 304, 351, 0, 41, 84, 129, 176, 225, 276, 329, 384, 441, 0, 51, 104, 159, 216, 275, 336, 399, 464, 531, 0, 61, 124, 189
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
FORMULA
|
Rd(abcd) = abcd*bcd*cd*d, etc.
Product_{k=1..length(n)} (n-10^k*floor(n/10^k)). - Vladeta Jovovic (vladeta(AT)Eunet.yu), Jan 08 2002
|
|
EXAMPLE
|
Rd(256) = 256*56*6 =86016.
|
|
MATHEMATICA
|
Table[d = IntegerDigits[n]; rd = 1; While[ Length[d] > 0, rd = rd*FromDigits[d]; d = Drop[d, 1]]; rd, {n, 1, 75} ]
|
|
CROSSREFS
|
Cf. A067080.
Adjacent sequences: A067076 A067077 A067078 this_sequence A067080 A067081 A067082
Sequence in context: A139281 A059707 A056967 this_sequence A080434 A062567 A069554
|
|
KEYWORD
|
base,nonn,nice
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 05 2002
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 07 2002
|
|
|
Search completed in 0.002 seconds
|
