|
Search: id:A086360
|
|
|
| A086360 |
|
Fixed point if (decimal-digit-sum)-function at initial value = n-th primorial=A002110(n) is iterated. |
|
+0
1
|
|
| 2, 6, 3, 3, 6, 6, 3, 3, 6, 3, 3, 3, 6, 6, 3, 6, 3, 3, 3, 6, 6, 6, 3, 6, 6, 3, 3, 6, 6, 3, 3, 6, 3, 3, 6, 6, 6, 6, 3, 6, 3, 3, 6, 6, 3, 3, 3, 3, 6, 6, 3, 6, 6, 3, 6, 3, 6, 6, 6, 3, 3, 6, 6, 3, 3, 6, 6, 6, 3, 3, 6, 3, 3, 3, 3, 6, 3, 3, 6, 6, 3, 3, 6, 6, 6, 3, 6, 6, 3, 3, 6, 3, 3, 6, 6, 3, 6, 3, 3, 3, 3, 6, 3, 6, 6
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n)=A010888[A002110(n)]=fixed-point of A007953[A002110(n)]; It equals nth-primorial modulo(9); only a(1)=2, a(n)= 3 or =6 occur.
|
|
EXAMPLE
|
n=7, 7th primorial=510510, iteration list={510510,12,3},a(7)=3.
|
|
MATHEMATICA
|
sud[x_] := Apply[Plus, DeleteCases[IntegerDigits[x], 0]] q[x_] := Apply[Times, Table[Prime[w], {w, 1, x}]] Table[FixedPoint[sud, q[w]], {w, 1, 128}]
|
|
CROSSREFS
|
Cf. A086353-A086361, A007953, A010888, A038194, A029898.
Adjacent sequences: A086357 A086358 A086359 this_sequence A086361 A086362 A086363
Sequence in context: A128203 A086357 A138054 this_sequence A066098 A123733 A130108
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 21 2003
|
|
|
Search completed in 0.002 seconds
|
