OFFSET
1,1
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
