This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A103382 #12 May 30 2020 15:10:45 %S A103382 2,3,5,7,17,31,71,157,257,349,641,769,3613,16763,233417,9540317, %T A103382 7391145211,139697883473,163069191377,562142600387,108169189705333, %U A103382 1285424246556809,1050111983810669984101,17940124369540827523058309 %N A103382 Primes in A103372. %C A103382 Intersection of A103372 with A000040. %H A103382 Harvey P. Dale, <a href="/A103382/b103382.txt">Table of n, a(n) for n = 1..50</a> %e A103382 233417 is an element of this sequence because A103372(83) = 233417. %t A103382 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]] %t A103382 Select[LinearRecurrence[{0,0,0,1,1},{1,1,1,1,1},500],PrimeQ] // Union (* _Harvey P. Dale_, May 30 2020 *) %Y A103382 Cf. A000040, A103372, A103383-A103391, A103392. %K A103382 nonn,easy %O A103382 1,1 %A A103382 _Jonathan Vos Post_, Feb 03 2005 %E A103382 Edited and extended by _Ray Chandler_ and _Robert G. Wilson v_, Feb 06 2005