editing

approved

Select[ModuleWith[{nn=8, lr}, lr=PadRight[{}, nn, 8, 1]; }, LinearRecurrence[lr, lr, 200]], PrimeQ] (* Harvey P. Dale, Dec 03 2022 *)

approved

editing

editing

approved

Select[Module[{nn=8, lr}, lr=PadRight[{}, nn, 1]; LinearRecurrence[lr, lr, 200]], PrimeQ] (* Harvey P. Dale, Dec 03 2022 *)

approved

editing

reviewed

approved

proposed

reviewed

editing

proposed

Primes in the 8th-order Fibonacci numbers A079262A123526.

2, 509, 128257, 133294824621464999938178340471931877, 459685204950086135105267245512185974401023293995416925926463802340963167265834025308328431781824206241329, 113, 449, 226241, 14307889, 113783041, 1820091580429249, 233322881089059894782836851617, 29566627412209231076314948970028097, 59243719929958343565697204780596496129, 7507351981539044730893385057192143660843521

a(612) is too large to display here. It has 395 46 digits and is the 1322nd 158th term in A079262A123526.

a={0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1}; step=8; lst={}; For[n=step, +1, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst, sum]]; a=RotateLeft[a]; a[[step]]=sum]; lst

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

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, A079262, A253705, A123526, A254412.

allocated for Robert PricePrimes in the 8th-order Fibonacci numbers A079262.

2, 509, 128257, 133294824621464999938178340471931877, 4596852049500861351052672455121859744010232939954169259264638023409631672658340253083284317818242062413

1,1

a(6) is too large to display here. It has 395 digits and is the 1322nd term in A079262.

a={0, 0, 0, 0, 0, 0, 0, 1}; step=8; lst={}; For[n=step, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst, sum]]; a=RotateLeft[a]; a[[step]]=sum]; lst

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

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, A079262, A253705.

allocated

nonn

Robert Price, Jan 30 2015

approved

editing

allocated for Robert Price

allocated

approved