|
| |
|
|
A085819
|
|
a(n) = Product_{k<=n} A085818(k).
|
|
1
|
|
|
|
1, 2, 6, 12, 60, 420, 4620, 9240, 27720, 360360, 6126120, 116396280, 2677114440, 77636318760, 2406725881560, 4813451763120, 178097715235440, 7302006324653040, 313986271960080720, 14757354782123793840
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
n divides a(n), see A085818.
|
|
|
LINKS
|
Table of n, a(n) for n=1..20.
|
|
|
PROG
|
(PARI) f(n) = 1 + sum(k=2, n, isprimepower(k) && !isprime(k)); \\ A085501
b(n) = {if (n==1, return (1)); my(p); if (isprimepower(n, &p) && !isprime(n), p, prime(n-f(n))); } \\ A085818
a(n) = prod(k=1, n, b(k)); \\ Michel Marcus, Jul 13 2021
|
|
|
CROSSREFS
|
Cf. A000040, A000142, A002110, A085818.
Sequence in context: A051451 A090951 A168262 * A069047 A095921 A106037
Adjacent sequences: A085816 A085817 A085818 * A085820 A085821 A085822
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Reinhard Zumkeller, Jul 04 2003
|
|
|
STATUS
|
approved
|
| |
|
|
