|
|
A175276
|
|
Base-4 pandigital primes: primes having at least one of each digit 0,1,2,3, when written in base 4.
|
|
8
|
|
|
283, 313, 331, 397, 419, 433, 457, 541, 557, 569, 587, 647, 653, 659, 709, 809, 929, 1051, 1063, 1069, 1123, 1163, 1171, 1181, 1187, 1201, 1213, 1249, 1259, 1291, 1307, 1319, 1327, 1423, 1427, 1459, 1481, 1483, 1543, 1549, 1559, 1567, 1571, 1579, 1583
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[300]], Min[DigitCount[#, 4]]>0&] (* Harvey P. Dale, Apr 15 2012 *)
|
|
PROG
|
(PARI) base(n, b=4, s=0)={local(a=[n%b]); while(0<n\=b, a=concat(n%b, a)); if(s, s=32*s+23; Strchr(vectorsmall(#a, i, if(a[i]>9, s, 48)+a[i])), a)}
forprime(p=1, 1999, #Set(base(p, 4))==4 & print1(p", "))
|
|
CROSSREFS
|
Cf. A050288, A138837, A175271, A175272, A175273, A175274, A175275, A175277, A175278, A175279, A175280.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|