OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1000
EXAMPLE
For n = 525, the primes are {521, 509, 461, 269, 499, 3571, 15859, 65011, 261619, 1048051}.
MATHEMATICA
AA = Table[PrimeQ[Abs[n - 4^k]], {n, 1, 150000}, {k, 1, 10}];
Flatten[Position[AA, {True, True, True, True, True, True, True, True, True, True}]]
PROG
(PARI) is(n)=for(k=1, 10, if(!isprime(abs(n-4^k)), return(0))); 1
CROSSREFS
KEYWORD
nonn
AUTHOR
José de Jesús Camacho Medina, Jan 23 2017
EXTENSIONS
Extended by Charles R Greathouse IV, Jan 24 2017
a(25)-a(29) from Chai Wah Wu, Jan 25 2017
STATUS
approved