login
A397628
a(n) = prime(A026352(n)).
0
5, 13, 19, 31, 43, 53, 67, 73, 89, 103, 109, 131, 149, 157, 173, 181, 197, 223, 229, 241, 257, 271, 283, 307, 317, 347, 353, 373, 383, 401, 421, 433, 449, 463, 479, 499, 509, 541, 563, 571, 593, 601, 617, 641, 647, 661, 683, 701, 727, 739, 757, 773, 797, 821
OFFSET
1,1
COMMENTS
This sequence and A397627 partition A000040.
MATHEMATICA
r = GoldenRatio; t = Table[If[FractionalPart[n*r] <= FractionalPart[r], 0, 1], {n, 1, 120}]
Prime[Flatten[Position[t, 0]]]
CROSSREFS
KEYWORD
nonn,easy,new
AUTHOR
Clark Kimberling, Jul 15 2026
STATUS
approved