OFFSET
1,1
COMMENTS
Conjecture: every positive integer occurs infinitely many times in this sequence.
FORMULA
EXAMPLE
The 10th prime is 29, which occurs in column 5, so a(10) = 5.
MATHEMATICA
W[n_, k_] := Fibonacci[k + 1] Floor[n*GoldenRatio] + (n - 1) Fibonacci[k];
t = Table[W[n, k], {k, 200}, {n, 1, 600}];
a[n_] := Select[Range[200], MemberQ[t[[#]], Prime[n]] &]
Flatten[Table[a[n], {n, 1, 100}]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Feb 04 2023
STATUS
approved