A036961 Primes with digits (0,...,6) taken as base 7 and converted to base 10.
2, 3, 5, 8, 10, 17, 22, 29, 31, 38, 43, 50, 52, 59, 71, 85, 94, 106, 115, 122, 127, 134, 143, 155, 157, 169, 185, 197, 211, 218, 220, 227, 239, 241, 248, 260, 262, 274, 290, 295, 304, 316, 323, 325, 332, 337, 353, 358, 365, 367, 379, 386, 388, 395, 409, 428
Offset: 1
Examples
a(n)=323 -> is 641{7} -> 641{10} is prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
pd7[n_]:=With[{c=IntegerDigits[n]},If[Max[c]<7,FromDigits[c,7],Nothing]]; pd7/@Prime[Range[300]] (* Harvey P. Dale, Mar 14 2025 *)