OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := FromDigits[ Flatten[ Table[ IntegerDigits[i], {i, n, n + 6}]]]; Select[ Range[2190], PrimeQ[ f[ # ]] & ]
Select[Range[2500], PrimeQ[FromDigits[Flatten[IntegerDigits/@Range[#, #+6]]]]&] (* Harvey P. Dale, Aug 15 2021 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Jun 27 2003
EXTENSIONS
Edited by Robert G. Wilson v, Jun 28 2003
Edited by Charles R Greathouse IV, Apr 24 2010
STATUS
approved