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

Author

Jonathan Vos Post, Feb 03 2005

Keywords

• nonn
• easy

Comments

Intersection of A103372 with A000040.

Examples

			233417 is an element of this sequence because A103372(83) = 233417.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..50

Crossrefs

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

Programs

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 *)

Extensions

Edited and extended by Ray Chandler and Robert G. Wilson v, Feb 06 2005