

A007697


Smallest odd number expressible in at least n ways as p+2*m^2 where p is 1 or a prime and m >= 0.
(Formerly M2292)


7



1, 3, 13, 19, 55, 61, 139, 139, 181, 181, 391, 439, 559, 619, 619, 829, 859, 1069, 1081, 1459, 1489, 1609, 1741, 1951, 2029, 2341, 2341, 3331, 3331, 3331, 3961, 4189, 4189, 4261, 4801, 4801, 5911, 5911, 5911, 6319, 6319, 6319, 8251, 8251, 8251, 8251, 8251
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


REFERENCES

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).


LINKS



MATHEMATICA

max = 9000; sp = Outer[Plus, Prepend[Prime /@ Range[PrimePi[max]], 1], 2*Range[0, Ceiling[Sqrt[max/2]]]^2] // Flatten // Sort // Split;
a[1] = 3; a[n_] := (sel = Select[sp, Length[#] >= n &];
If[sel == {}, {}, sel[[1, 1]]]); a /@ Range[47]


PROG

(Haskell)
import Data.List (findIndex)
import Data.Maybe (fromJust)
a007697 n = 2 * (fromJust $ findIndex (>= n) a046921_list) + 1


CROSSREFS



KEYWORD

nonn,nice,easy


AUTHOR



EXTENSIONS

Stern and HardyLittlewood references suggested by Ctibor O. Zizka, Apr 14 2008


STATUS

approved



