OFFSET
1,1
COMMENTS
The union of [{5, 7}, A282322, A282324 and this sequence] is the greater of twin primes sequence A006512.
Number of terms less than 10^k, k=2,3,4,...: 2, 11, 72, 407, 2697, 19507, 146516, ... - Muniru A Asiru, Mar 05 2018
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
MAPLE
select(n -> isprime(n-2) and isprime(n), [seq(30*k+1, k=0..300)]); # Muniru A Asiru, Mar 05 2018
MATHEMATICA
1 + Select[30 Range@ 200, AllTrue[# + {-1, 1}, PrimeQ] &] (* Michael De Vlieger, Mar 26 2018 *)
PROG
(PARI) list(lim)=my(v=List(), p=2); forprime(q=3, lim, if(q-p==2 && q%30==1, listput(v, q)); p=q); Vec(v) \\ Charles R Greathouse IV, Feb 14 2017
(GAP) Filtered(List([0..300], k -> 30*k+1), n -> IsPrime(n-2) and IsPrime(n)); # Muniru A Asiru, Mar 05 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Martin Renner, Feb 11 2017
STATUS
approved