A253333 Primes in the 7th-order Fibonacci numbers A060455.

7, 13, 97, 193, 769, 1531, 3049, 6073, 12097, 24097, 95617, 379399, 2998753, 187339729, 373174033, 2949551617, 184265983633, 731152932481, 88025699967469825543, 175344042716296888429, 4979552865927484193343796114081304399449

Offset

1,1

Comments

a(22) is too large to display here. It has 53 digits and is the 180th term in A060455.

Links

Robert G. Wilson v, Table of n, a(n) for n = 1..34

Mathematica

a={1, 1, 1, 1, 1, 1, 1}; step=7; lst={}; For[n=step, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst, sum]]; a=RotateLeft[a]; a[[7]]=sum]; lst
With[{c=PadRight[{}, 7, 1]}, Select[LinearRecurrence[c, c, 150], PrimeQ]] (* Harvey P. Dale, May 08 2015 *)

Prog

(PARI) lista(nn) = {gf = ( -1+x^2+2*x^3+3*x^4+4*x^5+5*x^6 ) / ( -1+x+x^2+x^3+x^4+x^5+x^6+x^7 ); for (n=0, nn, if (isprime(p=polcoeff(gf+O(x^(n+1)), n)), print1(p, ", ")); ); } \\ Michel Marcus, Jan 11 2015

Crossrefs

Cf. A001590, A001631, A100683, A231574, A231575, A232543, A214899, A020992, A233554, A214727, A234696, A141523, A235862, A214825, A235873, A001630, A241660, A247027, A000288, A247561, A000322, A248920, A000383, A247192, A060455, A253318.

Sequence in context: A320461 A132373 A110293 * A039687 A001544 A202152

Adjacent sequences: A253330 A253331 A253332 * A253334 A253335 A253336

Keyword

nonn

Author

Robert Price, Dec 30 2014

Status

approved