login
A333999
Even numbers with a Goldbach partition (p,q), p < q (p, q prime) such that q - p is a nonzero square.
0
10, 18, 22, 30, 42, 46, 50, 58, 70, 78, 82, 90, 98, 102, 106, 110, 114, 122, 126, 130, 138, 142, 150, 154, 158, 162, 170, 174, 178, 182, 190, 198, 202, 210, 218, 222, 234, 238, 242, 246, 250, 258, 262, 270, 278, 282, 290, 294, 298, 302, 310, 318
OFFSET
1,1
MATHEMATICA
Flatten[Table[If[Sum[(Floor[Sqrt[2 n - 2 i]] - Floor[Sqrt[2 n - 2 i - 1]]) (PrimePi[i] - PrimePi[i - 1]) (PrimePi[2 n - i] - PrimePi[2 n - i - 1]), {i, n - 1}] > 0, 2 n, {}], {n, 150}]]
CROSSREFS
Cf. A002375.
Sequence in context: A072992 A055481 A213717 * A245578 A165250 A257512
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Apr 11 2020
STATUS
approved