OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..50
EXAMPLE
233417 is an element of this sequence because A103372(83) = 233417.
MATHEMATICA
k = 4; Do[a[n] = 1, {n, k + 1}]; a[n_] := a[n] = a[n - k] + a[n - k - 1]; Union[Select[Array[a, 400], PrimeQ]]
Select[LinearRecurrence[{0, 0, 0, 1, 1}, {1, 1, 1, 1, 1}, 500], PrimeQ] // Union (* Harvey P. Dale, May 30 2020 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jonathan Vos Post, Feb 03 2005
EXTENSIONS
Edited and extended by Ray Chandler and Robert G. Wilson v, Feb 06 2005
STATUS
approved