A008648 -id:A008648 - cp's OEIS frontend

A002266 Integers repeated 5 times.

0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16

Offset: 0

N. J. A. Sloane

For n > 3, number of consecutive "11's" after the (n+3) "1's" in the continued fraction for sqrt(L(n+2)/L(n)) where L(n) is the n-th Lucas number A000032 (see example). E.g., the continued fraction for sqrt(L(11)/L(9)) is [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 11, 11, 58, 2, 4, 1, ...] with 12 consecutive ones followed by floor(11/5)=2 elevens. - Benoit Cloitre, Jan 08 2006
Complement of A010874, since A010874(n) + 5*a(n) = n. - Hieronymus Fischer, Jun 01 2007
From Paul Curtz, May 13 2020: (Start)
Main N-S vertical of the pentagonal spiral built with this sequence is A001105:
                              21
                          20  15  15
                      20  14  10  10  15
                  20  14   9   6   6  10  15
              20  14   9   5   3   3   6  10  15
          20  14   9   5   2   1   1   3   6  10  16
      19  14   9   5   2   0   0   0   1   3   6  11  16
        19   13   9   5  2   0   0    1   3   7 11  16
          19  13    8  5   2   2   1   4   7  11  16
            19   13   8  4   4   4   4   7  11  16
              19  13   8   8   8   7   7  11  17
                 18  13  12 12  12  12  12  17
                   18  18 18  18  17  17  17
The main S-N vertical and the next one are A000217. (End)

Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,1,-1).

a(n) = A010766(n, 5).
Cf. A002162, A008648, A004526, A002264, A002265, A010761, A010762, A110532, A110533, A010872, A010873, A010874.
Partial sums: A130520.

a002266 = (`div` 5)
a002266_list = [0,0,0,0,0] ++ map (+ 1) a002266_list
-- Reinhard Zumkeller, Nov 27 2012

A002266:=n->floor(n/5); seq(A002266(n), n=0..100); # Wesley Ivan Hurt, Dec 10 2013

Table[Floor[n/5], {n,0,20}] (* Wesley Ivan Hurt, Dec 10 2013 *)
Table[{n,n,n,n,n},{n,0,20}]//Flatten (* Harvey P. Dale, Jun 17 2022 *)

a(n)=n\5 \\ Charles R Greathouse IV, Dec 10 2013

def A002266(n): return n//5 # Chai Wah Wu, Nov 08 2022

[floor(n/5) - 1 for n in range(5,88)] # Zerinvary Lajos, Dec 01 2009

a(n) = floor(n/5), n >= 0.
G.f.: x^5/((1-x)(1-x^5)).
a(n) = (n - A010874(n))/5. - Hieronymus Fischer, May 29 2007
For n >= 5, a(n) = floor(log_5(5^a(n-1) + 5^a(n-2) + 5^a(n-3) + 5^a(n-4) + 5^a(n-5))). - Vladimir Shevelev, Jun 22 2010
Sum_{n>=5} (-1)^(n+1)/a(n) = log(2) (A002162). - Amiram Eldar, Sep 30 2022

Incorrect formula removed by Ridouane Oudra, Oct 16 2021

A102430 Triangle read by rows where T(n,k) is the number of integer partitions of n > 1 into powers of k > 1.

Original entry on oeis.org

2, 2, 2, 4, 2, 2, 4, 2, 2, 2, 6, 3, 2, 2, 2, 6, 3, 2, 2, 2, 2, 10, 3, 3, 2, 2, 2, 2, 10, 5, 3, 2, 2, 2, 2, 2, 14, 5, 3, 3, 2, 2, 2, 2, 2, 14, 5, 3, 3, 2, 2, 2, 2, 2, 2, 20, 7, 4, 3, 3, 2, 2, 2, 2, 2, 2, 20, 7, 4, 3, 3, 2, 2, 2, 2, 2, 2, 2, 26, 7, 4, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2

Offset: 2

Marc LeBrun, Jan 08 2005

All entries above main diagonal are = 1.

			The T(9,3)=5 partitions of 9 into powers of 3: 111111111, 1111113, 11133, 333, 9.
From _Gus Wiseman_, Jun 07 2019: (Start)
Triangle begins:
   2
   2  2
   4  2  2
   4  2  2  2
   6  3  2  2  2
   6  3  2  2  2  2
  10  3  3  2  2  2  2
  10  5  3  2  2  2  2  2
  14  5  3  3  2  2  2  2  2
  14  5  3  3  2  2  2  2  2  2
  20  7  4  3  3  2  2  2  2  2  2
  20  7  4  3  3  2  2  2  2  2  2  2
  26  7  4  3  3  3  2  2  2  2  2  2  2
  26  9  4  4  3  3  2  2  2  2  2  2  2  2
  36  9  6  4  3  3  3  2  2  2  2  2  2  2  2
  36  9  6  4  3  3  3  2  2  2  2  2  2  2  2  2
  46 12  6  4  4  3  3  3  2  2  2  2  2  2  2  2  2
Row n = 8 counts the following partitions:
  8          3311       44         5111       611        71         8
  44         311111     41111      11111111   11111111   11111111   11111111
  422        11111111   11111111
  2222
  4211
  22211
  41111
  221111
  2111111
  11111111
(End)

Alois P. Heinz, Rows n = 2..500, flattened

Cf. A102431, A102432, A102433, A102434, A001700, A018819, A062051, A008645, A008650, A008652, A008648.
Same as A308558 except for the k = 1 column.
Row sums are A102431.
First column (k = 2) is A018819.
Second column (k = 3) is A062051.
Cf. A000961, A001597, A007916, A023894, A052410, A112344.

b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<0, 0,
      b(n, i-1, k)+(p-> `if`(p>n, 0, b(n-p, i, k)))(k^i)))
    end:
T:= (n, k)-> b(n, ilog[k](n), k):
seq(seq(T(n, k), k=2..n), n=2..20);  # Alois P. Heinz, Oct 12 2019

Table[Length[Select[IntegerPartitions[n],And@@(IntegerQ[Log[k,#]]&/@#)&]],{n,2,10},{k,2,n}] (* Gus Wiseman, Jun 07 2019 *)

T(1, k) = 1, T(n, 1) = choose(2n-1, n), T(n>1, k>1) = T(n-1, k) + (T(n/k, k) if k divides n, else 0)

Corrected and rewritten by Gus Wiseman, Jun 07 2019

cp's OEIS Frontend

A002266 Integers repeated 5 times.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Python

Sage

Formula

Extensions