OFFSET
1,1
COMMENTS
Conjecture: a(n) ~ n*log(n)*log(n*log(n))*log(log(n)). - Carl R. White, Nov 16 2023
LINKS
David Radcliffe, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[6*p-1] && PrimeQ[6*p+1], AppendTo[lst, p]], {n, 100}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 16 2009 *)
PROG
(PARI) forprime(p=2, 9999, if(isprime(6*p+1) & isprime(6*p-1), print(p))) \\ David Radcliffe, Apr 02 2016
(Python) from sympy import *; print([p for p in primerange(2, 9999) if isprime(6*p-1) and isprime(6*p+1)]) # David Radcliffe, Apr 02 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 20 2001
STATUS
approved