|
Search: id:A139169
|
|
|
| A139169 |
|
a(n)=smallest k >= 1 such that n divides prime(k)!. |
|
+0
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; listen)
|
|
|
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 this_sequence A076742 A036465 A131469
Adjacent sequences: A139166 A139167 A139168 this_sequence A139170 A139171 A139172
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Apr 11 2008
|
|
|
Search completed in 0.002 seconds
|
