OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..20
FORMULA
MATHEMATICA
b[n_] := FromDigits[IntegerDigits[n, 2]]; b /@ Select[Table[(2^p + 1)/3, {p, Prime[Range[15]]}], PrimeQ] (* Amiram Eldar, Jul 23 2023 *)
PROG
(Python)
from gmpy2 import divexact
from sympy import prime, isprime
A127962 = [int(bin(p)[2:]) for p in (divexact(2**prime(n)+1, 3) for n in range(2, 10**2)) if isprime(p)] # Chai Wah Wu, Sep 04 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Feb 09 2007
EXTENSIONS
Edited by N. J. A. Sloane, Jun 11 2007
STATUS
approved