A247028
Primes in tetranacci sequence A001631.
Original entry on oeis.org
2, 7, 193, 19079, 1823013184807, 324494495853101147203936847, 16085434555484907108254435283952049, 255525859571903290673264616283734506003204622439226993660213169027169
Offset: 1
Cf.
A001590,
A001631,
A100683,
A231574,
A231575,
A232543,
A214899,
A020992,
A233554.
A214727,
A234696,
A141523,
A235862,
A214825,
A235873,
A001630,
A241660,
A247027.
-
a={0,0,1,0}; For[n=4, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[4]]=sum]
A247946
Primes in the tetranacci sequence A000288.
Original entry on oeis.org
7, 13, 181, 349, 673, 1297, 34513, 90799453, 175021573, 4657290577, 17304140641, 1131469145856472270556751793, 1544310310927991136025089626209, 1442398599584422734286432395814518441223501, 18598135820391234761502881488353916158281807617671450769
Offset: 1
Cf.
A001590,
A001631,
A100683,
A231574,
A231575,
A232543,
A214899,
A020992,
A233554,
A214727,
A234696,
A141523,
A235862,
A214825,
A235873,
A001630,
A241660,
A247027,
A000288,
A247561.
-
a={1,1,1,1}; For[n=4, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[4]]=sum]
Select[LinearRecurrence[{1,1,1,1},{1,1,1,1},300],PrimeQ] (* Harvey P. Dale, Jan 15 2015 *)
Comments