OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..1514
EXAMPLE
a(4) = 29 is a term because 29 and 2*29 + 1 = 59 are both primes and both have distinct digits.
MAPLE
filter:= proc(p) local L;
L:= convert(p, base, 10);
if nops(L) <> nops(convert(L, set)) or not isprime(2*p+1) then return false fi;
L:= convert(2*p+1, base, 10);
nops(L) = nops(convert(L, set))
end proc:
select(filter, [seq(ithprime(i), i=1..1000)]);
MATHEMATICA
s = {p = 2}; Do[p = NextPrime[p]; While[! PrimeQ[q = 2*p + 1] || 1<
Max[DigitCount[q]] || 1 < Max[DigitCount[p]], p = NextPrime[p]]; AppendTo[s,
p], {1515}]; s
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Zak Seidov and Robert Israel, Jul 10 2023
STATUS
approved