A333999 Even numbers with a Goldbach partition (p,q), p < q (p, q prime) such that q - p is a nonzero square.

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

Links

Table of n, a(n) for n=1..52.

Eric Weisstein's World of Mathematics, Goldbach Partition

Wikipedia, Goldbach's conjecture

Index entries for sequences related to Goldbach conjecture

Index entries for sequences related to partitions

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

Adjacent sequences: A333996 A333997 A333998 * A334000 A334001 A334002

Keyword

nonn

Author

Wesley Ivan Hurt, Apr 11 2020

Status

approved