A063378 Smallest number whose Sophie Germain degree (see A063377) is n.
4, 7, 3, 11, 5, 2, 89, 1122659, 19099919, 85864769, 26089808579, 665043081119, 554688278429, 4090932431513069, 95405042230542329
Offset: 0
Examples
Using f(x)=2x+1, 11 -> 23 -> 47 -> 95, which is composite; thus a(3)=11.
Links
- Warut Roonguthai, Yves Gallot's Proth.exe and Cunningham Chains
Programs
-
Mathematica
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := Block[{k = 2}, While[ Length[ NestWhileList[2# + 1 &, k, PrimeQ]] != n + 1, k = NextPrim[k]]; k]; Table[f[n], {n, 1, 8}]
Extensions
More terms from Jud McCranie, Jul 20 2001
Edited and extended by Robert G. Wilson v, Nov 21 2002
Comments