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.

A135518 Generalized repunits in base 15.

Original entry on oeis.org

1, 16, 241, 3616, 54241, 813616, 12204241, 183063616, 2745954241, 41189313616, 617839704241, 9267595563616, 139013933454241, 2085209001813616, 31278135027204241, 469172025408063616, 7037580381120954241, 105563705716814313616, 1583455585752214704241
Offset: 1

Views

Author

Julien Peter Benney (jpbenney(AT)gmail.com), Feb 19 2008

Keywords

Comments

Primes in this sequence are given in A006033.
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=1, A[i,i]:=15, (i>1), A[i,i-1]=-1, and A[i,j]=0 otherwise. Then, for n>=1, a(n)=det(A). - Milan Janjic, Feb 21 2010
Partial sums are in A014898. Also, the sequence is related to A014930 by A014930(n) = n*a(n) - Sum_{i=1..n-1}( a(i) ). - Bruno Berselli, Nov 06 2012

Examples

			For n=4, a(4) = 15^3+15^2+15^1+1 = 3375+225+15+1 = 3616.
For n=6, a(6) = 1*6 + 14*15 + 14^2*20 + 14^3*15 + 14^4*6 + 14^5*1 = 813616. - _Bruno Berselli_, Nov 12 2015
		

Crossrefs

Programs

  • Mathematica
    Table[FromDigits[PadRight[{},n,1],15],{n,20}] (* or *) LinearRecurrence[{16,-15},{1,16},20] (* Harvey P. Dale, Jul 08 2013 *)
  • Maxima
    A135518(n):=(15^n-1)/14$ makelist(A135518(n),n,1,30); /* Martin Ettl, Nov 05 2012 */
    
  • PARI
    a(n)=(15^n-1)/14 \\ Charles R Greathouse IV, Sep 24 2015
    
  • Python
    def a(n): return int('1'*n, 15)
    print([a(n) for n in range(1, 20)]) # Michael S. Branicky, Jan 16 2021
  • Sage
    [gaussian_binomial(n,1,15) for n in range(1,15)] # Zerinvary Lajos, May 28 2009
    
  • Sage
    [(15^n-1)/14 for n in (1..30)] # Bruno Berselli, Nov 12 2015
    

Formula

a(n) = (15^n - 1)/14.
a(n) = 15*a(n-1) + 1 with n>1, a(1)=1. - Vincenzo Librandi, Aug 03 2010
G.f.: x/((1-x)*(1-15*x)). - Bruno Berselli, Nov 07 2012
a(1)=1, a(2)=16; for n>2, a(n) = 16*a(n-1) - 15*a(n-2). - Harvey P. Dale, Jul 08 2013
a(n) = Sum_{i=0...n-1} 14^i*binomial(n,n-1-i). - Bruno Berselli, Nov 12 2015
E.g.f.: (1/14)*(exp(15*x) - exp(x)). - G. C. Greubel, Oct 17 2016

A048446 Take the first n numbers written in base 15, concatenate them, then convert from base 15 to base 10.

Original entry on oeis.org

1, 17, 258, 3874, 58115, 871731, 13075972, 196139588, 2942093829, 44131407445, 661971111686, 9929566675302, 148943500129543, 2234152501943159, 502684312937210790, 113103970410872427766, 25448393342446296247367, 5725888502050416655657593, 1288324912961343747522958444
Offset: 1

Views

Author

Patrick De Geest, May 15 1999

Keywords

Examples

			a(14) = (1)(2)(3)(4)(5)(6)(7)(8)(9)(A)(B)(C)(D)(E) = 123456789ABCDE_15 = 2234152501943159.
		

Crossrefs

Cf. A014898.
Concatenation of first n numbers in other bases: 2: A047778, 3: A048435, 4: A048436, 5: A048437, 6: A048438, 7: A048439, 8: A048440, 9: A048441, 10: A007908, 11: A048442, 12: A048443, 13: A048444, 14: A048445, 15: this sequence, 16: A048447.

Programs

  • Magma
    [n eq 1 select 1 else Self(n-1) * 15^(1+Ilog(15, n)) + n: n in [1..20]]; // Vincenzo Librandi, Dec 30 2012
  • Mathematica
    If[STARTPOINT==1, n={}, n=Flatten[IntegerDigits[Range[STARTPOINT-1], 15]]]; Table[AppendTo[n, IntegerDigits[w, 15]]; n=Flatten[n]; FromDigits[n, 15], {w, STARTPOINT, ENDPOINT}] (* Dylan Hamilton, Aug 11 2010 *)
    f[n_]:= FromDigits[Flatten@IntegerDigits[Range@n, 15], 15]; Array[f, 20] (* Vincenzo Librandi, Dec 30 2012 *)
Showing 1-2 of 2 results.