A383371 Primes having only {1, 2, 4, 8} as digits.
2, 11, 41, 181, 211, 241, 281, 421, 811, 821, 881, 1181, 1481, 1811, 2111, 2141, 2221, 2281, 2411, 2441, 4111, 4211, 4241, 4421, 4441, 4481, 8111, 8221, 8821, 11411, 11821, 12211, 12241, 12281, 12421, 12821, 12841, 14221, 14281, 14411, 14821, 18121, 18181, 18211
Offset: 1
Examples
11 is in this sequence because 1 is an integer power of 2. 13 is not in this sequence because 3 is not an integer power of 2.
Links
Crossrefs
Programs
-
Mathematica
nmax = 8; Flatten[Table[Select[FromDigits /@ Tuples[{1, 2, 4, 8}, n], PrimeQ], {n, 1, nmax}]] -
PARI
is(n)=isprime(n) && #setminus(Set(digits(n)),[1,2,4,8])==0 \\ Charles R Greathouse IV, Apr 24 2025