The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A159231 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A159231

Primes p such that 8*p^2-2*p-1 divides Fibonacci(p).
(history; published version)

#30 by N. J. A. Sloane at Sun Sep 22 17:47:10 EDT 2024

STATUS

reviewed

approved

#29 by Andrew Howroyd at Sun Sep 22 17:23:46 EDT 2024

STATUS

proposed

reviewed

#28 by Robert C. Lyons at Sun Sep 22 15:42:08 EDT 2024

STATUS

editing

proposed

#27 by Robert C. Lyons at Sun Sep 22 15:42:05 EDT 2024

PROG

(Magma) [p : p in PrimesUpTo(49477) | IsZero(Fibonacci(p) mod (8*p^2-2*p-1))] ; // Arkadiusz Wesolowski, Nov 09 2013

STATUS

approved

editing

#26 by Charles R Greathouse IV at Mon Apr 03 10:36:11 EDT 2023

LINKS

Chris Caldwell, The Prime Glossary, <a href="httphttps://primes.utmt5k.eduorg/glossary/xpage/FibonacciNumber.html">Fibonacci number</a>

C. K. Caldwell, "Top Twenty" page, <a href="httphttps://primes.utmt5k.eduorg/top20/page.php?id=64">Fibonacci cofactor</a>

Discussion

Mon Apr 03

10:36

OEIS Server: https://oeis.org/edit/global/2966

#25 by Charles R Greathouse IV at Thu Sep 08 08:45:43 EDT 2022

PROG

(MAGMAMagma) [p : p in PrimesUpTo(49477) | IsZero(Fibonacci(p) mod (8*p^2-2*p-1))] // Arkadiusz Wesolowski, Nov 09 2013

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#24 by T. D. Noe at Sat Nov 09 22:30:26 EST 2013

STATUS

proposed

approved

#23 by Arkadiusz Wesolowski at Sat Nov 09 08:09:59 EST 2013

STATUS

editing

proposed

#22 by Arkadiusz Wesolowski at Sat Nov 09 08:09:52 EST 2013

PROG

(MAGMA) [p : p in PrimesUpTo(49477) | IsZero(Fibonacci(p) mod (8*p^2-2*p-1))] // Arkadiusz Wesolowski, Nov 09 2013

#21 by Arkadiusz Wesolowski at Sat Nov 09 08:08:52 EST 2013

MATHEMATICA

Select[Prime@Range[51005084], Mod[Fibonacci[#], 8*#^2 - 2*# - 1] == 0 &] (* _Arkadiusz Wesolowski, _, Dec 12 2011 *)

PROG

(MAGMA) [p: p in PrimesUpTo(49477) | IsZero(Fibonacci(p) mod (8*p^2-2*p-1))] // Arkadiusz Wesolowski, Nov 09 2013

(PARI) forprime(p=2, 49477, if(Mod(fibonacci(p), 8*p^2-2*p-1)==0, print1(p, ", "))); \\ Arkadiusz Wesolowski, Nov 09 2013

CROSSREFS

Subsequence of A159259. Superset Supersequence of A215158.

STATUS

approved

editing