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

A002277 a(n) = 3*(10^n - 1)/9.

Original entry on oeis.org

0, 3, 33, 333, 3333, 33333, 333333, 3333333, 33333333, 333333333, 3333333333, 33333333333, 333333333333, 3333333333333, 33333333333333, 333333333333333, 3333333333333333, 33333333333333333, 333333333333333333, 3333333333333333333, 33333333333333333333, 333333333333333333333
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Comments

From Wolfdieter Lang, Feb 08 2017: (Start)
This sequence (for n >= 1) appears in n-families satisfying so-called curious cubic identities based on the Armstrong numbers 153, 370 and 371, A005188(10) - A005188(12).
153 also involves A246057(n-1) and A093143(n). See a comment in A246057 with the van Poorten et al. reference, and A281857.
370 and 371 also involve A067275(n+1). See the comment there, and A281858 and A281860. (End)

Examples

			From _Wolfdieter Lang_, Feb 08 2017: (Start)
Curious cubic identities (see a comment above):
1^3 + 5^3 + 3^3 = 153, 16^3 + 50^3 + 33^3 = 165033, 166^3 + 500^3 + 333^3 = 166500333, ...
3^3 + 7^3 + 0^3 = 370; 336700 = 33^3 + 67^3 + (00)^3 = 336700,  333^3 + 667^3 + (000)^3 = 333667000, ...
3^3 + 7^3 + 1^3 = 371, 33^3 + 67^3 + (01)^3 = 336701, 333^3 + 667^3 + (001)^3 = 333667001, ... (End)

Links

Crossrefs

Cf. A002275, A002276, A002278, A002279, A002280, A002281, A002282, A002283, A010785, A017197.
Cf. A005188, A067275, A075412, A093143, A135702, A178631, A178633, A246057, A281857, A281858, A281860.

Programs

Formula

a(n) = 3*A002275(n).
a(n) = A178631(n)/A002283(n). - Reinhard Zumkeller, May 31 2010
From Vincenzo Librandi, Jul 22 2010: (Start)
a(n) = a(n-1) + 3*10^(n-1) with a(0)=0;
a(n) = 11*a(n-1) - 10*a(n-2) with a(0)=0, a(1)=3. (End)
G.f.: 3*x/((1 - x)*(1 - 10*x)). - Ilya Gutkovskiy, Feb 24 2017
Sum_{n>=1} 1/a(n) = A135702. - Amiram Eldar, Nov 13 2020
E.g.f.: exp(x)*(exp(9*x) - 1)/3. - Stefano Spezia, Sep 13 2023
From Elmo R. Oliveira, Jul 20 2025: (Start)
a(n) = (A246057(n) - 1)/5.
a(n) = A010785(A017197(n-1)) for n >= 1. (End)

A067275 Number of Fibonacci numbers A000045(k), k <= 10^n, which end in 4.

Original entry on oeis.org

0, 1, 7, 67, 667, 6667, 66667, 666667, 6666667, 66666667, 666666667, 6666666667, 66666666667, 666666666667, 6666666666667, 66666666666667, 666666666666667, 6666666666666667, 66666666666666667, 666666666666666667, 6666666666666666667, 66666666666666666667, 666666666666666666667
Offset: 0

Views

Author

Joseph L. Pe, Feb 21 2002

Keywords

Comments

Numbers n such that the digits of A000326(n), the n-th pentagonal number, begin with n. [original definition of this sequence]
The sequence 1,7,67.... has a(n) = 6*10^n/9+3/9. It is the second binomial transform of 6*A001045(3n)/3 + (-1)^n. In general the second binomial transform of k*Jacobsthal(3n)/3+(-1)^n is k*10^n/9 + (1-k/9) = 1, 1+k, 1+11k, 1+111k, ... - Paul Barry, Mar 24 2004
Except for the first two terms, these are the 3-automorphic numbers ending in 7. - Eric M. Schmidt, Aug 28 2012
From Wolfdieter Lang, Feb 08 2017: (Start)
This sequence appears in curious identities based on the Armstrong numbers 370 = A005188(11), 371 = A005188(12) and 407 = A005188(13).
For such identities based on 153 = A005188(10) see a comment in A246057 with the van der Poorten et al. reference.
For 370 these identities are A002277(n)^3 + a(n+1)^3 + 0(n)^3 = A002277(n)*10^(2*n) + a(n+1)*10^n + 0(n) = A281858(n), where 0(n) means n 0's.
For 371 these identities are A002277(n)^3 + a(n+1)^3 + (0(n-1)1)^3 = A002277(n)*10^(2*n) + a(n+1)*10^n + 0(n-1)1 = A281860(n), where 0(n-1)1 means n-1 0's followed by a 1.
For 407 these identities are A093137(n)^3 + 0(n)^3 + a(n+1)^3 = concatenation(A093137(n), 0(n), a(n+1)) = A281859(n). (End)

Examples

			a(2) = 7 because 7 of the first 10^2 Fibonacci numbers end in 4.
From _Wolfdieter Lang_, Feb 08 2017: (Start)
Curious cubic identities:
3^3 + 7^3 + 0^3 = 370, 33^3 + 67^3 + (00)^3 = 336700, 333^3 + 667^3 + (000)^3 = 333667000, ...
3^3 + 7^3 + 1^3 = 371, 33^3 + 67^3 + (01)^3 = 336701, 333^3 + 667^3 + (001)^3 = 333667001, ...
4^3 + 0^3 + 7^3 = 407, 34^3 + (00)^3 + 67^3 = 340067 , 334^3 + (000)^3 + 677^3 = 334000677, ... (End)

Links

Crossrefs

Cf. A072702, A093137, A109344, A246057, A281858, A281859, A281860.
Cf. A000045, A000326, A001045, A002277, A005188, A073553, A199682.

Programs

  • Mathematica
    s = Fibonacci@ Range[10^5]; Table[Count[Take[s, 10^n], m_ /; Mod[m, 10] == 4], {n, 0, Floor@ Log10@ Length@ s}] (* or *) Table[Boole[n > 0] Ceiling[10^n/15], {n, 0, 20}] (* or *) CoefficientList[Series[x (1 - 4 x)/((1 - x) (1 - 10 x)), {x, 0, 20}], x] (* Michael De Vlieger, Feb 08 2017 *)
  • PARI
    a(n)=(10^n+13)\15 \\ Charles R Greathouse IV, Jun 05 2011

Formula

a(n) = ceiling((2/30)*10^n) - Benoit Cloitre, Aug 27 2002
From Paul Barry, Mar 24 2004: (Start)
G.f.: x*(1 - 4*x)/((1 - x)*(1 - 10*x)).
a(n) = 10^n/15 + 1/3 for n>0. (End)
a(n) = 10*a(n-1) - 3 for n>1. - Vincenzo Librandi, Dec 07 2010 [Immediate consequence of the previous formula, R. J. Mathar]
From Eric M. Schmidt, Oct 28 2012: (Start)
For n>0, a(n) = A199682(n-1)/3 = (2*10^(n-1) + 1)/3.
For n>=2, a(n+1) = a(n) + 6*10^n. (End)
From Elmo R. Oliveira, Jul 22 2025: (Start)
E.g.f.: (-6 + 5*exp(x) + exp(10*x))/15.
a(n) = 11*a(n-1) - 10*a(n-2) for n >= 3.
a(n) = A073553(n)/2 for n >= 1. (End)

Extensions

A073552 merged into this sequence by Eric M. Schmidt, Oct 28 2012

A281857 Numbers occurring in a curious cubic identity.

Original entry on oeis.org

153, 165033, 166500333, 166650003333, 166665000033333, 166666500000333333, 166666650000003333333, 166666665000000033333333, 166666666500000000333333333, 166666666650000000003333333333, 166666666665000000000033333333333, 166666666666500000000000333333333333
Offset: 1

Views

Author

Wolfdieter Lang, Feb 07 2017

Keywords

Comments

See A246057 for the van der Poorten et al. reference and a comment.
153 is the Armstrong number A005188(10). [Typo corrected by Jeremy Tan, Feb 25 2023]

Examples

			1^3 + 5^3 + 3^3 = 153, 16^3 + 50^3 + 33^3 = 165033, 166^3 + 500^3 + 333^3 = 166500333, ...

Links

Crossrefs

Cf. A002277, A005188, A093143, A246057, A281858, A281859, A281860.

Programs

  • Mathematica
    Table[FromDigits@ Join[ReplacePart[ConstantArray[6, n], 1 -> 1], ReplacePart[ConstantArray[0, n], 1 -> 5], ConstantArray[3, n]], {n, 12}] (* Michael De Vlieger, Feb 08 2017 *)
  • PARI
    Vec(9*x*(17 - 550*x + 33500*x^2) / ((1 - x)*(1 - 10*x)*(1 - 100*x)*(1 - 1000*x)) + O(x^15)) \\ Colin Barker, Feb 08 2017
  • PARI
    a(n) = (((10^n - 4)/6)^3) + ((10^n/2)^3) + (((10^n - 1)/3)^3) \\ Jean-Jacques Vaudroz, Aug 11 2024

Formula

a(n) = A246057(n-1)^3 + A093143(n)^3 + A002277(n)^3, n >= 1.
From Colin Barker, Feb 08 2017: (Start)
G.f.: 9*x*(17 - 550*x + 33500*x^2) / ((1 - x)*(1 - 10*x)*(1 - 100*x)*(1 - 1000*x)).
a(n) = (-2 + 2^(1+n)*5^n - 100^n + 1000^n) / 6.
a(n) = 1111*a(n-1) - 112110*a(n-2) + 1111000*a(n-3) - 1000000*a(n-4) for n>4. (End)
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.