|
|
A068489
|
|
m for which prime(m) is the least prime dividing #prime(n) - 1, i.e., one less than primorial n-th prime (A057588).
|
|
1
|
|
|
3, 10, 5, 343, 3248, 18, 16, 12, 22, 20324, 50, 9414916809095, 13120, 43, 8481, 1200361259, 196, 38, 10326732314, 65, 38, 34
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
Since #P13 - 1 is a prime, see A006794, we need the number of primes less than or equal to #P13 - 1. The sequence continues, for n=14 to 23: 13120, 43, 8481, 1200361259, 196, 38, 10326732314, 65, 38, 34.
a(24) = pi(23768741896345550770650537601358309). - Donovan Johnson, Dec 08 2009
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Do[ Print[ PrimePi[ FactorInteger[ Product[ Prime[k], {k, 1, n}] - 1] [[1, 1]]]], {n, 2, 22} ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|