A110060 Least positive k such that n^n + k is a Chen prime.

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

Offset

1,3

Links

Table of n, a(n) for n=1..52.

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, Sep 27 2006 *)

Crossrefs

Cf. A109611.

Sequence in context: A045873 A371637 A265022 * A061081 A007368 A054677

Adjacent sequences: A110057 A110058 A110059 * A110061 A110062 A110063

Keyword

nonn

Author

Jason Earls, Sep 04 2005

Extensions

More terms from Ryan Propper, Sep 27 2006

Status

approved