OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..2399 (terms < 10^13, first 201 terms from Harvey P. Dale)
MATHEMATICA
psi7Q[n_]:=Module[{idn=IntegerDigits[n]}, And@@PrimeQ[FromDigits/@ Table[ Insert[ idn, 7, i], {i, Length[idn]+1}]]]; Select[Range[8000], psi7Q] (* Harvey P. Dale, Sep 18 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 14 2002
EXTENSIONS
More terms from Vladeta Jovovic, Apr 16 2002
Offset changed to 1 by Giovanni Resta, Oct 14 2019
STATUS
approved