OFFSET
1,2
LINKS
Paul D. Beale, A new class of scalable parallel pseudorandom number generators based on Pohlig-Hellman exponentiation ciphers, arXiv preprint arXiv:1411.2484, 2014-2015.
Paul D. Beale, Jetanat Datephanyawat, Class of scalable parallel and vectorizable pseudorandom number generators based on non-cryptographic RSA exponentiation ciphers, arXiv:1811.11629 [cs.CR], 2018.
MATHEMATICA
nmax = 37; stable = Table[0, {nmax}];
Do[s = 0;
Do[If[And[PrimeQ[i], PrimeQ[2 i + 1]], s++], {i, 1, 2^n - 1}];
Print[n, " ", s]; stable[[n]] = s, {n, 1, nmax}];
stable (* Paul D. Beale, Sep 19 2014 *)
PROG
(PARI) a211397(n) = {local(r, i); r=0; for(i=1, 2^n-1, if(isprime(i)&&isprime(2*i+1), r=r+1)); r}
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael B. Porter, Feb 08 2013
EXTENSIONS
a(30)-a(37) from Paul D. Beale, Sep 19 2014
STATUS
approved