OFFSET
1,2
FORMULA
PROG
(PARI) lista(nn) = {prm = primes(nn); tp = select(p->(Mod(p, 8)==3), prm); fp = select(p->(Mod(p, 8)==5), prm); for (i = 1, min(#tp, #fp), print1((tp[i] + fp[i])/8, ", "); ); } \\ Michel Marcus, Sep 30 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved