|
Search: id:A057459
|
|
|
| A057459 |
|
Modified Higg's primes, i.e. next prime such that a(n+1) | a(1) ... a(n) and if none, first prime not listed. |
|
+0
2
|
|
| 2, 3, 5, 7, 11, 23, 31, 43, 47, 67, 71, 139, 211, 283, 311, 331, 431, 463, 659, 683, 691, 863, 947, 967, 1291, 1303, 1319, 1367, 1427, 1699, 1867, 1979, 1987, 2011, 2111, 2131, 2311, 2531, 3011, 3083, 4099, 4423, 4643, 4691, 4831, 5171, 5179, 5683, 5839
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
NextPrime[ n_Integer ] := Module[ {k = n + 1}, While[ ! PrimeQ[ k ], k++ ]; Return[ k ] ]; f[ n_List ] := (a = n; b = Apply[ Times, a ]; p = NextPrime[ Sort[ a ][[ -1 ]] ]; While[ ! IntegerQ[ b/(p - 1) ] && p < b, p = NextPrime[ p ] ]; If[ p > b, p = 2; While[ Position[ a, p ] != {}, p = NextPrime[ p ] ] ]; AppendTo[ a, p ]); Nest[ f, {2}, 50 ]
|
|
CROSSREFS
|
Cf. A007459.
Sequence in context: A118721 A094318 A019344 this_sequence A068853 A158217 A030284
Adjacent sequences: A057456 A057457 A057458 this_sequence A057460 A057461 A057462
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 26 2000
|
|
|
Search completed in 0.002 seconds
|
