|
|
A078884
|
|
Greater member p of a twin prime pair such that p-1 is 3-smooth.
|
|
3
|
|
|
5, 7, 13, 19, 73, 109, 193, 433, 1153, 2593, 139969, 472393, 786433, 995329, 57395629, 63700993, 169869313, 4076863489, 10871635969, 2348273369089, 56358560858113, 79164837199873, 84537841287169, 150289495621633
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MAPLE
|
N:= 10^100:
sort(select(t -> isprime(t) and isprime(t-2),
[seq(seq(1+2^i*3^j, i=1..ilog2(floor(N/3^j))), j=0..floor(log[3](N)))])); # Robert Israel, May 14 2018
|
|
MATHEMATICA
|
1 + Select[With[{n = 10^15}, Sort@ Flatten@ Table[2^p * 3^q, {p, 0, Log2@ n}, {q, 0, Log[3, n/(2^p)]}] ], AllTrue[# + {-1, 1}, PrimeQ] &] (* Michael De Vlieger, May 14 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|