Revision History for A248921
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing all changes.
|
|
|
|
#10 by Harvey P. Dale at Sat Nov 30 13:27:18 EST 2019
|
|
|
|
#9 by Harvey P. Dale at Sat Nov 30 13:27:15 EST 2019
|
| LINKS
|
Harvey P. Dale, <a href="/A248921/b248921.txt">Table of n, a(n) for n = 1..19</a>
|
| STATUS
|
approved
editing
|
|
|
|
#8 by Harvey P. Dale at Sat Nov 30 13:24:20 EST 2019
|
|
|
|
#7 by Harvey P. Dale at Sat Nov 30 13:24:17 EST 2019
|
| MATHEMATICA
|
Select[With[{c={1, 1, 1, 1, 1}}, LinearRecurrence[c, c, 300]], PrimeQ] (* Harvey P. Dale, Nov 30 2019 *)
|
| STATUS
|
approved
editing
|
|
|
|
#6 by N. J. A. Sloane at Sun Oct 19 16:06:35 EDT 2014
|
|
|
|
#5 by Robert Price at Thu Oct 16 11:27:15 EDT 2014
|
|
|
|
#4 by Robert Price at Thu Oct 16 11:27:02 EDT 2014
|
| CROSSREFS
|
Cf. A001590, A001631, A100683, A231574, A231575, A232543, A214899, A020992, A233554, A214727, A234696, A141523, A235862, A214825, A235873, A001630, A241660, A247027, A000288, A247561, A000322, A248920.
|
|
|
|
#3 by Robert Price at Thu Oct 16 11:25:33 EDT 2014
|
| NAME
|
Primes in the pentanacci tetranaccinumbers sequence A000288A000322.
|
| DATA
|
7, 13, 181, 3495, 67317, 1297977, 3451328697, 9079945356417, 1750215731428864769, 46572905772809074173, 1730414064121344178433, 1131469145856472270556751793626815657409, 154431031092799113602508962620918407729752001, 14423985995844227342864323958145184412235012317881588988297338942875602391948125494800020122167809, 18598135820391234761502881488353916158281807617671450769136507010958920295813169620935932629930648432530102206331972221346174230852977164801
|
| COMMENTS
|
a(1613) is too large to display here. It has 63132 digits and is the 221st450th term in A000288A000322.
|
| MATHEMATICA
|
a={1, 1, 1, 1, 1}; For[n=45, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[45]]=sum]
|
|
|
|
#2 by Robert Price at Thu Oct 16 11:20:55 EDT 2014
|
| NAME
|
allocatedPrimes in the fortetranacci Robertsequence PriceA000288.
|
| DATA
|
7, 13, 181, 349, 673, 1297, 34513, 90799453, 175021573, 4657290577, 17304140641, 1131469145856472270556751793, 1544310310927991136025089626209, 1442398599584422734286432395814518441223501, 18598135820391234761502881488353916158281807617671450769
|
| OFFSET
|
1,1
|
| COMMENTS
|
a(16) is too large to display here. It has 63 digits and is the 221st term in A000288.
|
| MATHEMATICA
|
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]
|
| CROSSREFS
|
Cf. A001590, A001631, A100683, A231574, A231575, A232543, A214899, A020992, A233554, A214727, A234696, A141523, A235862, A214825, A235873, A001630, A241660, A247027, A000288, A247561.
|
| KEYWORD
|
allocated
nonn
|
| AUTHOR
|
Robert Price, Oct 16 2014
|
| STATUS
|
approved
editing
|
|
|
|
#1 by Robert Price at Thu Oct 16 11:20:55 EDT 2014
|
| NAME
|
allocated for Robert Price
|
| KEYWORD
|
allocated
|
| STATUS
|
approved
|
|
|
|
|