A060004 a(n) = least odd number which can be represented in the form p + 2*k^2, k>0, in n different ways.

1, 5, 13, 21, 49, 55, 91, 139, 259, 181, 301, 391, 481, 559, 619, 829, 859, 1069, 1111, 1081, 1489, 1609, 1741, 1951, 2029, 2971, 2341, 3379, 3769, 3331, 3589, 3961, 4525, 4189, 5281, 4801, 4975, 6361, 7579, 5911, 6439, 7111, 6319, 9931, 11059, 8869

Offset

0,2

Links

Table of n, a(n) for n=0..45.

Mathematica

a = Table[ 0, {100} ]; Do[ c = 0; k = 1; While[ n - 2*k^2 > 1, If[ PrimeQ[ n - 2*k^2 ], c++ ]; k++ ]; If[ a[ [ c ] ] == 0, a[ [ c ] ] = n ], { n, 1, 70801, 2 } ]

Crossrefs

Sequence in context: A166051 A160170 A277189 * A174172 A076408 A006353

Adjacent sequences: A060001 A060002 A060003 * A060005 A060006 A060007

Keyword

nonn

Author

Robert G. Wilson v, Mar 14 2001

Status

approved