OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) v=List(); p=2; forprime(q=3, 1e6, if(isprime(t=3*p-q-3), listput(v, t)); p=q); v=vecsort(Vec(v), , 8)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Nov 17 2004
EXTENSIONS
Edited and extended by Klaus Brockhaus, Nov 19 2004
Terms corrected by Charles R Greathouse IV, Feb 15 2011
STATUS
approved