OFFSET
1,2
COMMENTS
It is conjectured that this sequence is finite and all 208 terms are found.
LINKS
Lei Zhou, Table of n, a(n) for n = 1..208
EXAMPLE
MATHEMATICA
p = 3; sp = {p}; m = 0; Table[
While[m++; l = Length[sp];
While[sp[[l]] < m,
While[p = NextPrime[p];
cp = 2*3^(Floor[Log[3, 2*p - 1]]) - p; ! PrimeQ[cp]];
AppendTo[sp, p]; l++]; c = 2 - Mod[m + 1, 2]; ct = 0;
Do[If[MemberQ[sp, m - c*sp[[i]]],
If[Abs[Floor[Log[3, 2*sp[[i]] - 1]] -
Floor[Log[3, 2*(m - c*sp[[i]]) - 1]]] <= 1,
If[c == 1, If[(2*sp[[i]]) <= m, ct++], ct++]]], {i, 1, l}];
ct > 0];
m, {n, 1, 208}]
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Lei Zhou, Nov 18 2016
STATUS
approved