|
Search: id:A110060
|
|
|
| A110060 |
|
Least positive k such that n^n + k is a Chen prime. |
|
+0
1
|
|
| 1, 1, 2, 1, 12, 23, 4, 73, 100, 19, 450, 281, 114, 241, 56, 51, 582, 527, 412, 771, 230, 997, 440, 95, 1882, 1117, 224, 1213, 1968, 29, 168, 421, 104, 2383, 876, 1085, 5776, 253, 742, 4909, 402, 2045, 3414, 403, 2366, 705, 2124, 6455, 5662, 2329, 1568, 20101
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
(* After loading the NumberTheory package *) SemiPrimeQ[n_] := (f = FactorIntegerECM[n]; PrimeQ[f] && PrimeQ[n/f]); ShenPrimeQ[n_] := (PrimeQ[n] && (PrimeQ[n + 2] || SemiPrimeQ[n + 2])); Do[k = 1; While[ !ShenPrimeQ[n^n + k], k++ ]; Print[k], {n, 100}] - Ryan Propper (rpropper(AT)stanford.edu), Sep 27 2006
|
|
CROSSREFS
|
Cf. A109611.
Sequence in context: A164826 A055392 A045873 this_sequence A061081 A007368 A054677
Adjacent sequences: A110057 A110058 A110059 this_sequence A110061 A110062 A110063
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Sep 04 2005
|
|
EXTENSIONS
|
More terms from Ryan Propper (rpropper(AT)stanford.edu), Sep 27 2006
|
|
|
Search completed in 0.002 seconds
|
