editing
approved
editing
approved
Harvey P. Dale, <a href="/A069684/b069684.txt">Table of n, a(n) for n = 1..252</a> (* All terms with less than 500 digits. *)
approved
editing
editing
approved
Harvey P. Dale, <a href="/A069684/b069684_3.txt">Table of n, a(n) for n = 1..200252</a>
approved
editing
editing
approved
Harvey P. Dale, <a href="/A069684/b069684_2.txt">Table of n, a(n) for n = 1..200</a>
approved
editing
editing
approved
Join[Prime[Range[25]], Select[Prime[RangeFlatten[26, 6000]], UnionTable[MostFromDigits[RestJoin[IntegerDigits{d1}, PadRight[#]{}, n, 9], {d2}]]==, {n, 150}, {d1, 9}, {d2, {1, 3, 7, 9}&}]], PrimeQ]] (* Harvey P. Dale, Nov 10 2024 *)
approved
editing
editing
approved
Harvey P. Dale, <a href="/A069684/b069684_1.txt">Table of n, a(n) for n = 1..81200</a> (* All terms up to and including the 5 millionth prime. *)
approved
editing