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