cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A000057 Primes dividing all Fibonacci sequences.

Original entry on oeis.org

2, 3, 7, 23, 43, 67, 83, 103, 127, 163, 167, 223, 227, 283, 367, 383, 443, 463, 467, 487, 503, 523, 547, 587, 607, 643, 647, 683, 727, 787, 823, 827, 863, 883, 887, 907, 947, 983, 1063, 1123, 1163, 1187, 1283, 1303, 1327, 1367, 1423, 1447, 1487, 1543, 1567, 1583
Offset: 1

Views

Author

Keywords

Comments

Here a Fibonacci sequence is a sequence which begins with any two integers and continues using the rule s(n+2) = s(n+1) + s(n). These primes divide at least one number in each such sequence. - Don Reble, Dec 15 2006
Primes p such that the smallest positive m for which Fibonacci(m) == 0 (mod p) is m = p + 1. In other words, the n-th prime p is in this sequence iff A001602(n) = p + 1. - Max Alekseyev, Nov 23 2007
Cubre and Rouse comment that this sequence is not known to be infinite. - Charles R Greathouse IV, Jan 02 2013
Number of terms up to 10^n: 3, 7, 38, 249, 1894, 15456, 130824, 1134404, 10007875, 89562047, .... - Charles R Greathouse IV, Nov 19 2014
These are also the fixed points of sequence A213648 which gives the minimal number of 1's such that n*[n; 1,..., 1, n] = [x; ..., x], where [...] denotes simple continued fractions. - M. F. Hasler, Sep 15 2015
It appears that for n >= 2, all first differences are congruent to 0 (mod 4). - Christopher Hohl, Dec 28 2018
The comment above is equivalent to a(n) == 3 (mod 4) for n >= 2. This is indeed correct. Actually it can be proved that a(n) == 3, 7 (mod 20) for n >= 2. Let p != 2, 5 be a prime, then: A001175(p) divides (p - 1)/2 if p == 1, 9 (mod 20); p - 1 if p == 11, 19 (mod 20); (p + 1)/2 if p == 13, 17 (mod 20). So the remaining cases are p == 3, 7 (mod 20). - Jianing Song, Dec 29 2018

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Subsequence of A064414.

Programs

  • Mathematica
    Select[Prime[Range[1000]], Function[p, a=0; b=1; n=1; While[b != 0, t=b; b = Mod[(a+b), p]; a=t; n++]; n>p]] (* Jean-François Alcover, Aug 05 2018, after Charles R Greathouse IV *)
  • PARI
    select(p->my(a=0,b=1,n=1,t);while(b,t=b;b=(a+b)%p; a=t; n++); n>p, primes(1000)) \\ Charles R Greathouse IV, Jan 02 2013
    
  • PARI
    is(p)=fordiv(p-1,d,if(((Mod([1,1;1,0],p))^d)[1,2]==0,return(0)));fordiv(p+1,d,if(((Mod([1,1;1,0],p))^d)[1,2]==0,return(d==p+1 && isprime(p)))) \\ Charles R Greathouse IV, Jan 02 2013
    
  • PARI
    is(p)=if((p-2)%5>1, return(0)); my(f=factor(p+1)); for(i=1, #f~, if((Mod([1, 1; 1, 0], p)^((p+1)/f[i, 1]))[1, 2]==0, return(0))); isprime(p) \\ Charles R Greathouse IV, Nov 19 2014

Extensions

More terms from Don Reble, Nov 14 2006

A079347 Fibonacci(p-(p/5)) is the first Fibonacci number that p divides and this is p-(p/5).

Original entry on oeis.org

3, 4, 5, 8, 10, 18, 24, 30, 44, 58, 68, 70, 78, 84, 104, 128, 130, 164, 168, 178, 190, 224, 228, 238, 250, 270, 284, 310, 358, 368, 378, 384, 418, 430, 438, 444, 464, 468, 478, 488, 490, 498, 504, 524, 548, 570, 588, 598, 608, 630, 644, 648, 658, 684, 718, 728, 738, 750
Offset: 1

Views

Author

Jon Perry, Jan 04 2003

Keywords

Examples

			a(4) = 8 because A079346(4) = 7, (7/5) = -1 and 7-(-1) = 8.
		

Crossrefs

Programs

  • PARI
    forprime (p=2, 500, wss=p-kronecker(5, p); for(n=1, wss, if( fibonacci(n)%p==0, if( n==wss, print1(wss", "), break) ) ))

Extensions

Offset corrected and a(1)-a(3) and more terms added by Amiram Eldar, Jun 22 2024

A079348 Fibonacci(p-(p/5)) is the not the first Fibonacci number that p divides.

Original entry on oeis.org

13, 17, 29, 37, 41, 47, 53, 61, 73, 89, 97, 101, 107, 109, 113, 137, 139, 149, 151, 157, 173, 181, 193, 197, 199, 211, 229, 233, 241, 257, 263, 269, 277, 281, 293, 307, 313, 317, 331, 337, 347, 349, 353, 373, 389, 397, 401, 409, 421, 433, 449, 457, 461
Offset: 1

Views

Author

Jon Perry, Jan 04 2003

Keywords

Examples

			a(1) = 13 as (13/5) = -1, F(14) = 377 = 13 * 29, however F(7) = 13.
		

Crossrefs

Programs

  • PARI
    quad5(x)=if (x%5>1 && x%5<4,-1,1);
    forprime (p=7,500, wss=p-quad5(p); for (n=1, wss,if (fibonacci(n)%p==0,if (n
    				

Extensions

Offset corrected by Amiram Eldar, Jun 22 2024

A079349 p-(p/5) where Fibonacci(p-(p/5)) is not the first Fibonacci number that p divides.

Original entry on oeis.org

14, 18, 28, 38, 40, 48, 54, 60, 74, 88, 98, 100, 108, 108, 114, 138, 138, 148, 150, 158, 174, 180, 194, 198, 198, 210, 228, 234, 240, 258, 264, 268, 278, 280, 294, 308, 314, 318, 330, 338, 348, 348, 354, 374, 388, 398, 400, 408, 420, 434, 448, 458, 460
Offset: 1

Views

Author

Jon Perry, Jan 04 2003

Keywords

Examples

			A079348(1) = 13, (13/5) = -1, hence a(1) = 14.
		

Crossrefs

Programs

  • PARI
    quad5(x)=if (x%5>1 && x%5<4,-1,1);
    forprime (p=7,500, wss=p-quad5(p); for (n=1, wss,if (fibonacci(n)%p==0,if (n
    				

Extensions

Offset corrected by Amiram Eldar, Jun 22 2024
Showing 1-4 of 4 results.