[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A090707
Primes whose decimal representation is a valid number in base 4 and interpreted as such is again a prime.
79
2, 3, 11, 13, 23, 31, 101, 103, 113, 131, 211, 223, 233, 311, 331, 1013, 1021, 1033, 1103, 1201, 1213, 1223, 1231, 1301, 2003, 2111, 2113, 2131, 2203, 2213, 2311, 2333, 3001, 3011, 3203, 3221, 3301, 3323, 10111, 10211, 10303, 10313, 10321, 10331
OFFSET
1,1
EXAMPLE
13 is prime in decimal and also when considered as a number in base 4: 13 [base 4] = 7 [base 10] which is also prime.
MATHEMATICA
Select[ FromDigits@# & /@ IntegerDigits[ Prime@ Range@ 270, 4], PrimeQ] (* Robert G. Wilson v, Jan 05 2014 *)
FromDigits[#, 10]&/@Select[Tuples[{0, 1, 2, 3}, 5], AllTrue[{FromDigits[#, 4], FromDigits[#, 10]}, PrimeQ]&] (* Harvey P. Dale, Jul 30 2021 *)
PROG
(PARI) forprime(p=2, 1e4, if(isprime(t=fromdigits(digits(p, 4))), print1(t", "))) \\ Charles R Greathouse IV, Apr 22 2015
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jan 18 2004
EXTENSIONS
Name, example and offset corrected by M. F. Hasler, Jan 03 2014
STATUS
approved