|
Search: id:A139322
|
|
| |
|
| 1, 6, 9, 15, 17, 21, 27, 33, 39, 41, 45, 47, 51, 53, 57, 63, 65, 71, 77, 83, 89, 95, 101, 107, 113, 119, 125, 131, 137, 143, 149, 155, 161, 167, 173, 185, 191, 197, 203, 209, 215, 221, 227, 233, 239, 245, 251, 257, 269, 275, 277, 281, 287, 293, 299, 305, 311, 317
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Robert G. Wilson v and T. D. Noe, Table of n, a(n) for n=0..5000
|
|
MATHEMATICA
|
f[n_] := Block[{c = 0, lmt = PrimePi@ Floor[n/2], p, q}, Do[p = Prime@ i; q = Prime@ j; r = n - p - q; If[ PrimeQ@ r && r >= p, c++ ], {i, lmt}, {j, i}]; c]; lst = {1}; Do[ If[f@n > f@lst[[ -1]], AppendTo[lst, n]], {n, 13450}]; lst
|
|
CROSSREFS
|
Cf. A000040, A068307, A139321.
Sequence in context: A154778 A106350 A020717 this_sequence A139321 A020648 A020147
Adjacent sequences: A139319 A139320 A139321 this_sequence A139323 A139324 A139325
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 13 2008
|
|
|
Search completed in 0.002 seconds
|
