A242576 Prime terms in A214828.

13, 151, 277, 36313, 225949, 7129366889, 933784181621, 19397107178326126131136629644898891137047, 401151570474397232184569825031979125080583558010764826781295643008140597581801

Offset: 1

Author

Robert Price, May 17 2014

Keywords

• nonn

Comments

a(10) has 119 digits and thus is too large to display here. It corresponds to A214828(448).

Links

• Michel Marcus, Table of n, a(n) for n = 1..17

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862, A214825, A235873, A242324, A214827, A214828.

Programs

Mathematica

a={1,6,6}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Select[LinearRecurrence[{1,1,1},{1,6,6},350],PrimeQ] (* Harvey P. Dale, Jul 21 2018 *)

PARI

my(x='x+O('x^500)); select(isprime, Vec((1+5*x-x^2)/(1-x-x^2-x^3))) \\ Michel Marcus, Jun 16 2025