|
|
A281047
|
|
Numbers n such that abs(n - 4^k) is prime for k = 1..8.
|
|
2
|
|
|
483, 525, 635, 2015, 2043, 3335, 3575, 4275, 10317, 14955, 17855, 22547, 49433, 51695, 52773, 79877, 125807, 132725, 176417, 242073, 314177, 451937, 463517, 590663, 598793, 707817, 795143, 798335, 963815, 994565, 1095465
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
For n = 483, the primes are {479, 467, 419, 227, 541, 3613, 15901, 65053}.
|
|
MATHEMATICA
|
Select[Range[11*10^5], AllTrue[Abs[#-4^Range[8]], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 28 2020 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|