OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
t = {}; p = 5; Do[While[q = p; While[p = NextPrime[p]; Mod[p, 4] == 3]; p - q < Log[q]^2]; AppendTo[t, q], {25}]; t (* T. D. Noe, Sep 21 2012 *)
PROG
(PARI) r=1; v=List(); p=5; forprime(q=11, 1e7, if(q%4>1, next); if(q-p>r, r=log(p)^2\1; if(q-p>r, print1(p", "); listput(v, p))); p=q); Vec(v) \\ Charles R Greathouse IV, Sep 21 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Sep 20 2012
EXTENSIONS
a(22)-a(40) from Charles R Greathouse IV, Sep 21 2012
STATUS
approved