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,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

Cf. A281047.

Sequence in context: A249286 A283345 A125012 * A308242 A260606 A181112

Adjacent sequences: A281546 A281547 A281548 * A281550 A281551 A281552

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