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-2 of 2 results.

A111035 Numbers n that divide the sum of the first n nonzero Fibonacci numbers.

Original entry on oeis.org

1, 2, 24, 48, 72, 77, 96, 120, 144, 192, 216, 240, 288, 319, 323, 336, 360, 384, 432, 480, 576, 600, 648, 672, 720, 768, 864, 960, 1008, 1080, 1104, 1152, 1200, 1224, 1296, 1320, 1344, 1368, 1440, 1517, 1536, 1680, 1728, 1800, 1920, 1944, 2016, 2064, 2160
Offset: 1

Views

Author

Joseph L. Pe, Oct 05 2005

Keywords

Comments

The sum of the first n nonzero Fibonacci numbers is F(n+2)-1, sequence A000071. Knott discusses the factorization of these numbers. Most of the terms are divisible by 24. - T. D. Noe, Oct 10 2005, edited by M. F. Hasler, Mar 01 2020
All terms are either multiples of 24 (cf. A124455) or odd (cf. A331976) or congruent to 2 (mod 12), cf. A331870 where this statement is proved. - M. F. Hasler, Mar 01 2020

Examples

			2 | 4, 24 | 121392, 48 | 12586269024, ... [Corrected by _M. F. Hasler_, Feb 06 2020]
		

Crossrefs

See A101907 for another version.
Cf. A111058 (the analog for Lucas numbers).
Cf. A124455 (k for a(n) = 24k), A124456 (other a(n)), A331976 (odd a(n)), A331870 (even a(n) != 24k).

Programs

  • GAP
    Filtered([1..3000], n-> ((Fibonacci(n+2)-1) mod n)=0 ); # G. C. Greubel, Feb 03 2020
  • Magma
    [1] cat [n: n in [1..3000] | Fibonacci(n+2) mod n eq 1 ]; // G. C. Greubel, Feb 03 2020
    
  • Maple
    select(n-> irem(combinat[fibonacci](n+2)-1, n)=0, [$1..3000])[]; # G. C. Greubel, Feb 03 2020
  • Mathematica
    Select[Range[3000], Mod[Fibonacci[ #+2]-1, # ]==0&] (*  T. D. Noe, Oct 06 2005 *)
  • PARI
    is(n)=((Mod([1,1;1,0],n))^(n+2))[1,2]==1 \\ Charles R Greathouse IV, Feb 04 2013
    
  • Sage
    [n for n in (1..3000) if mod(fibonacci(n+2), n)==1 ] # G. C. Greubel, Feb 03 2020
    

Formula

{n: n| A000071(n+2)}. - R. J. Mathar, Feb 05 2020

Extensions

More terms from Rick L. Shepherd and T. D. Noe, Oct 06 2005

A124456 Numbers k which divide the sum of the Fibonacci numbers F(1) through F(k) and such that k is not a multiple of 24.

Original entry on oeis.org

1, 2, 77, 319, 323, 1517, 3021, 4757, 6479, 7221, 8159, 8229, 9797, 11663, 12597, 13629, 13869, 14429, 14949, 16637, 18407, 19043, 19437, 23407, 24947, 25437, 30049, 30621, 34943, 34989, 35207, 39203, 43677, 44099, 47519, 51983, 53663, 55221, 65471, 70221, 77837, 78089, 79547
Offset: 1

Views

Author

Alexander Adamchuk, Nov 02 2006, Nov 03 2006

Keywords

Comments

Numbers k which divide the sum of the first k nonzero Fibonacci numbers are listed in A111035 = {1, 2, 24, 48, 72, 77, 96, ...}. Most of these are multiples of 24. These multiples divided by 24 are listed in A124455 = {1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, ...}. [Edited by M. F. Hasler, Feb 04 2020]
A111035(2024) = 758642 is in this sequence but not in A331976. - Don Reble, Feb 04 2020
The even terms a({2, 155, 397, 469, ...}) = {2, 758642, 7057466, 10805846, ...} are now listed in A331870. - M. F. Hasler, Feb 06 2020

Crossrefs

Cf. A331976 (odd terms).

Programs

  • Mathematica
    Select[Range[20000], !IntegerQ[ #/24]&&Mod[Fibonacci[ #+2]-1, # ]==0&]
  • PARI
    A124456_vec(N=44, n=0)={vector(N,i, until( n++%24&& is_A111035(n),); n)} \\ M. F. Hasler, Feb 04 2020
    
  • Sage
    [n for n in (1..20000) if mod(n,24)!=0 and mod(fibonacci(n+2)-1, n)==0 ] # G. C. Greubel, Feb 16 2020

Formula

{ n != 0 (mod 24) | A000071(n+2) == 0 (mod n) }. - M. F. Hasler, Feb 06 2020

Extensions

Edited by M. F. Hasler, Feb 04 2020
Showing 1-2 of 2 results.