OFFSET
1,1
COMMENTS
Complement to A108472.
MATHEMATICA
ra=Range[200]; cnd=!PrimeQ[4*Prime[ # ]+Prime[ #+1]]&; se=Select[ra, cnd]
Rest[Flatten[Position[4First[#]+Last[#]&/@Partition[Prime[Range[100]], 2, 1], _?(!PrimeQ[#]&)]]] (* Harvey P. Dale, Feb 18 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 04 2005
STATUS
approved