OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) >> n^2 log^4 n. - Charles R Greathouse IV, Jul 03 2013
PROG
(PARI) for(k=0, 1e3, if(isprime(4*k+3)&&isprime(4*k+5), print1(16*k^2+32*k +15", "))) \\ Charles R Greathouse IV, Jul 03 2013
(PARI) is(n)=my(k=sqrtint(n\16)); n==16*k^2+32*k+15 && isprime(4*k+3) && isprime(4*k+5) \\ Charles R Greathouse IV, Jul 03 2013
(PARI) is(n)=my(t); n%16==15 && issquare(n+1, &t) && isprime(t-1) && isprime(t+1) \\ Charles R Greathouse IV, Dec 12 2016
(PARI) list(lim)=my(v=List(), p=3); forprime(q=5, sqrtint(1+lim\1)+1, if(q-p==2 && p%4==3, listput(v, p*q)); p=q); Vec(v) \\ Charles R Greathouse IV, Dec 12 2016
(Haskell)
a071700 n = a071700_list !! (n-1)
a071700_list = [x * y | x <- [3, 7 ..], a010051' x == 1,
let y = x + 2, a010051' y == 1]
-- Reinhard Zumkeller, Aug 05 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 04 2002
STATUS
approved