OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MAPLE
i: 1: for k from 1 to 1200 do if isprim (k) and isprim (k+10) then a [ i ] : = k : a [ i + 1]: = k + 10 : i = i + 2 fi od : seq (a [ n ], n=1..i-1);
MATHEMATICA
Flatten[{#, #+10}&/@Select[Prime[Range[100]], PrimeQ[#+10]&]] (* Harvey P. Dale, Apr 11 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 26 2008
EXTENSIONS
Corrected by D. S. McNeil, Dec 10 2009
STATUS
approved