|
| |
|
|
A139169
|
|
a(n)=smallest k >= 1 such that n divides prime(k)!.
|
|
12
| |
|
|
1, 1, 2, 3, 3, 2, 4, 3, 4, 3, 5, 3, 6, 4, 3, 4, 7, 4, 8, 3, 4, 5, 9, 3, 5, 6, 5, 4, 10, 3, 11, 5, 5, 7, 4, 4, 12, 8, 6, 3, 13, 4, 14, 5, 4, 9, 15, 4, 7, 5, 7, 6, 16, 5, 5, 4, 8, 10, 17, 3, 18, 11, 4, 5, 6, 5, 19, 7, 9, 4, 20, 4, 21, 12, 5, 8, 5, 6, 22, 4, 5, 13, 23, 4, 7, 14, 10, 5, 24, 4, 6, 9, 11, 15
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
MATHEMATICA
| a = {}; Do[m = 1; While[ ! IntegerQ[Prime[m]!/n], m++ ]; AppendTo[a, m], {n, 1, 100}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| Indices of primes in A139171.
Cf. A039716, A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458, A139068, A137390, A139070, A139071, A139072, A139073, A139074, A139075, A139148, A139149, A139150, A139151, A139152, A139153, A139154, A139155, A139156, A139157, A139158, A139158, A139159, A139160, A139161, A139162, A139163, A139164, A139165, A139166, A139089, A139168, A139169, A139170.
Sequence in context: A068227 A046824 A130156 * A076742 A036465 A182865
Adjacent sequences: A139166 A139167 A139168 * A139170 A139171 A139172
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Apr 11 2008
|
| |
|
|
