OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(7)=41 because 10*41+47=457 and 457 is prime,
a(8)=67 because 10*67+73=743 and 743 is prime,
a(9)=89 because 10*89+101=991 and 991 is prime, ...
MAPLE
ts_p6_01:=proc(n) local a, b, i, ans; ans := [ ]: for i from 1 to n do a := 10*ithprime(i)+ithprime(i+2): if (isprime(a)=true) then ans := [ op(ans), ithprime(i) ]: fi od; RETURN(ans) end: ts_p6_01(1000);
MATHEMATICA
Select[Partition[Prime[Range[300]], 3, 1], PrimeQ[10#[[1]]+#[[3]]]&][[All, 1]] (* Harvey P. Dale, Apr 17 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, Aug 01 2007
STATUS
approved