| 3, 5, 7, 13, 19, 23, 31, 43, 47, 53, 61, 73, 83, 89, 103, 109, 113, 131, 139, 151, 157, 167, 173, 181, 193, 199, 211, 229, 233, 241, 257, 263, 271, 283, 293, 313, 317, 337, 349, 353, 359, 373, 383, 389, 401, 409, 421, 433, 443, 449, 463, 467, 491, 503, 509, 523
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
5^2 = 25 < 29 = (3^2+7^2)/2, ...
|
|
MATHEMATICA
|
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; p2=Prime[n+2]; If[p1^2<(p0^2+p2^2)/2, AppendTo[lst, p1]], {n, 5!}]; lst
|
|
CROSSREFS
|
Cf. A045536, A005384, A051634, A006562, A051635, A155188
Sequence in context: A075579 A059788 A077171 this_sequence A065384 A126108 A100859
Adjacent sequences: A155186 A155187 A155188 this_sequence A155190 A155191 A155192
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 21 2009
|
|
