|
|
A182262
|
|
Least prime p that 6^n - p is prime.
|
|
1
|
|
|
3, 5, 5, 5, 17, 7, 17, 7, 7, 7, 59, 19, 17, 13, 7, 19, 137, 13, 19, 7, 23, 97, 19, 89, 17, 223, 29, 109, 5, 19, 5, 59, 197, 5, 17, 307, 59, 83, 109, 157, 19, 23, 43, 109, 103, 7, 23, 19, 7, 269, 43, 13, 5, 67, 89, 83, 479, 53, 53, 383, 7, 83, 113, 37, 5, 23
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
For n=3 p=5 is the least prime that 6^3-p is prime (211).
|
|
MAPLE
|
f:= proc(n) local t, p;
t:= 6^n;
p:= 2;
do
p:= nextprime(p);
until isprime(t-p);
p
end proc:
|
|
MATHEMATICA
|
f[n_] := Block[{p = 2}, While[! PrimeQ[6^n - p], p = NextPrime[p]];
p]; Array[f, 60]
|
|
PROG
|
(PARI) a(n) = my(p = 2); while(!isprime(6^n-p), p = nextprime(p+1)); p; \\ Michel Marcus, Mar 23 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|