OFFSET
1,1
COMMENTS
The initial term 7 does not correspond to a "decadal prime triple" according to the strict definition of A008470.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(k) local P;
P:= select(isprime, [10*k+1, 10*k+3, 10*k+7, 10*k+9]);
if nops(P) >= 3 then max(P) fi
end proc:f(0):= 7:map(f, [$0..1000]); # Robert Israel, Jun 08 2020
PROG
(PARI) p=0; for(d=1, 999, 2+p < (p=primepi(10*d)) && print1(precprime(d*10)", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 03 2014
STATUS
approved