OFFSET
1,1
COMMENTS
No more terms < 10^13.
LINKS
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 1304119699
Carlos Rivera, Puzzle 591
MATHEMATICA
lst = {}; n = 7; Do[If[PrimeQ[p], i = IntegerDigits[p]; If[FreeQ[i, n], t = 0; s = IntegerLength[p]; Do[If[PrimeQ@FromDigits@Insert[Drop[i, {d}], n, d], t++, Break[]], {d, s}]; If[t == s, AppendTo[lst, p]]]], {p, 36493}]; lst
Select[Prime[Range[4000]], DigitCount[#, 10, 7]==0&&AllTrue[FromDigits/@Table[ReplacePart[ IntegerDigits[#], n->7], {n, IntegerLength[#]}], PrimeQ]&] (* The program generates the first 17 terms of the sequence. *) (* Harvey P. Dale, Jun 09 2024 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Arkadiusz Wesolowski, Apr 03 2013
STATUS
approved