OFFSET
1,1
FORMULA
EXAMPLE
13 + 47 = 17 + 43 = 19 + 41 = 23 + 37 = 29 + 31.
MATHEMATICA
a = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; Do[ a = Delete[ a, 1 ]; a = Append[ a, Prime[ n ] ]; If[ a[ [ 1 ] ] + a[ [ 10 ] ] == a[ [ 2 ] ] + a[ [ 9 ] ] == a[ [ 3 ] ] + a[ [ 8 ] ] == a[ [ 4 ] ] + a[ [ 7 ] ] == a[ [ 5 ] ] + a[ [ 6 ] ], Print[ a[ [ 1 ] ] ] ], {n, 1, 3 10^5} ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Sep 17 2001
EXTENSIONS
More terms from Sean A. Irvine, Jun 11 2023
STATUS
approved