OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = (A145474(n)-13)/12.
MAPLE
select(k -> isprime(6*k+13) and isprime(12*k+13), [$0..1000]); # Robert Israel, Jan 23 2017
MATHEMATICA
aa = {}; k = 13; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, (Prime[n] - k)/12]], {n, 1, 500}]; aa
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 11 2008
EXTENSIONS
Definition corrected by Ivan Neretin, Jan 23 2017
STATUS
approved