A103386 Primes in A103376.
2, 3, 5, 7, 17, 31, 71, 127, 157, 227, 257, 293, 349, 419, 503, 65657, 152833, 172297, 11229341, 12584983, 26532901, 31220807, 1164893671, 1217349652999, 2346608054761, 8116583338373, 53091879496979, 9758833144565411
Offset: 1
Examples
7 is in this sequence because A103376(27) = 7, which is prime.
Programs
-
Mathematica
k = 8; Do[a[n] = 1, {n, k + 1}]; a[n_] := a[n] = a[n - k] + a[n - k - 1]; Union[Select[Array[a, 500], PrimeQ]]
Extensions
Edited and extended by Ray Chandler, Feb 10 2005
Comments