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.

A245426 Number of nonnegative integers with property that their base 7/4 expansion (see A024641) has n digits.

Original entry on oeis.org

7, 7, 14, 21, 42, 70, 126, 217, 378, 665, 1162, 2037, 3563, 6237, 10913, 19096, 33418, 58485, 102347, 179109, 313439, 548520, 959910, 1679839, 2939720, 5144510, 9002889, 15755061, 27571355, 48249873, 84437276, 147765233, 258589156, 452531023, 791929292
Offset: 1

Views

Author

James Van Alstine, Jul 21 2014

Keywords

Examples

			The numbers 7-13 are represented by 40, 41, 42, 43, 44, 45, 46 respectively in base 7/4. These are the only integers with two digits, and so a(2)=7.
		

Crossrefs

Programs

  • Sage
    A=[1]
    for i in [1..60]:
        A.append(ceil((7-4)/4*sum(A)))
    [7*x for x in A]

A245349 Sum of digits of n written in fractional base 7/4.

Original entry on oeis.org

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

Views

Author

James Van Alstine, Jul 18 2014

Keywords

Comments

The base 7/4 expansion is unique, and thus the sum of digits function is well-defined.

Examples

			In base 7/4 the number 7 is represented by 40 and so a(7) = 4 + 0 = 4.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := a[n] = If[n == 0, 0, a[4 * Floor[n/7]] + Mod[n, 7]]; Array[a, 100, 0] (* Amiram Eldar, Jul 31 2025 *)
  • PARI
    a(n) = if(n == 0, 0, a(n\7 * 4) + n % 7); \\ Amiram Eldar, Jul 31 2025
  • Sage
    # uses [basepqsum from A245355]
    [basepqsum(7,4,y) for y in [0..200]]
    

Formula

a(n) = A007953(A024641(n)). - Amiram Eldar, Jul 31 2025
Showing 1-2 of 2 results.