A103382 Primes in A103372.

2, 3, 5, 7, 17, 31, 71, 157, 257, 349, 641, 769, 3613, 16763, 233417, 9540317, 7391145211, 139697883473, 163069191377, 562142600387, 108169189705333, 1285424246556809, 1050111983810669984101, 17940124369540827523058309

Offset

1,1

Comments

Intersection of A103372 with A000040.

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

Cf. A000040, A103372, A103383-A103391, A103392.

Sequence in context: A103386 A103384 A103383 * A143027 A001153 A141453

Adjacent sequences: A103379 A103380 A103381 * A103383 A103384 A103385

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