OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
11 = 6 + 5 = 15[6] (in base 6), and 11 + 1 + 5 = 17 is again prime.
MAPLE
filter:= n -> isprime(n) and isprime(n+convert(convert(n, base, 6), `+`)):
select(filter, [seq(i, i=3..2000, 2)]); # Robert Israel, Mar 22 2020
PROG
(PARI) forprime(p=1, 1999, isprime(p+sumdigits(p, 6))&&print1(p", "))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 06 2018
STATUS
approved