A281549 Numbers n such that abs(n - 4^k) is prime for k = 1..10.
525, 635, 3335, 22547, 132725, 242073, 590663, 598793, 795143, 963815, 1910433, 2506647, 5833497, 13032533, 13336685, 22163097, 22291055, 27730755, 36069767, 39412953, 41006745, 42520623, 44594457, 47869577, 63735185, 73770483, 76852937, 89703543, 100998105
Offset: 1
Keywords
Examples
For n = 525, the primes are {521, 509, 461, 269, 499, 3571, 15859, 65011, 261619, 1048051}.
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A281047.
Programs
-
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}]] -
PARI
is(n)=for(k=1, 10, if(!isprime(abs(n-4^k)), return(0))); 1
Extensions
Extended by Charles R Greathouse IV, Jan 24 2017
a(25)-a(29) from Chai Wah Wu, Jan 25 2017