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

A114804 The numbers 3^n-1 written in groups of three digits, with leading zeros omitted.

Original entry on oeis.org

282, 680, 242, 728, 218, 665, 601, 968, 259, 48, 177, 146, 531, 440, 159, 432, 247, 829, 681, 434, 890, 643, 46, 720, 129, 140, 162, 387, 420, 488, 116, 226, 146, 634, 867, 844, 1, 46, 35, 320, 231, 381, 59, 608, 941, 431, 788, 262, 824, 295, 364, 808
Offset: 1

Views

Author

Jonathan Vos Post, Feb 18 2006

Keywords

Examples

			2, 8, 26, 80, 242, 728, 2186, ...
		

Crossrefs

Programs

  • Mathematica
    FromDigits/@Partition[Flatten[IntegerDigits/@(3^Range[30]-1)],3] (* Harvey P. Dale, Jul 04 2021 *)

Extensions

Terms recomputed to use the definition equivalent to A114645. - R. J. Mathar, Jun 23 2014

A114807 The numbers 4^n-1 written in groups of three digits, with leading zeros omitted.

Original entry on oeis.org

315, 632, 551, 23, 409, 516, 383, 655, 352, 621, 431, 48, 575, 419, 430, 316, 777, 215, 671, 88, 632, 684, 354, 551, 73, 741, 823, 429, 496, 729, 517, 179, 869, 183, 687, 194, 767, 352, 748, 779, 69, 431, 99, 511, 627, 775, 439, 804, 651, 110, 317, 592, 186, 44
Offset: 1

Views

Author

Jonathan Vos Post, Feb 19 2006

Keywords

Examples

			3, 15, 63, 255, 1023, 4095, 16383, ...
		

Crossrefs

Programs

  • Mathematica
    FromDigits[#] & /@ Partition[ Flatten@ IntegerDigits@ Table[4^n - 1, {n, 22}], 3] (* Robert G. Wilson v, Jun 23 2014 *)
    FromDigits/@Partition[Flatten[IntegerDigits/@(4^Range[30]-1)],3] (* Harvey P. Dale, Jun 03 2025 *)
  • Python
    from itertools import count, islice
    def bgen(): yield from (d for n in count(1) for d in str((1 << 2*n)-1))
    def agen(): g = bgen(); yield from (int("".join(t)) for t in zip(g, g, g))
    print(list(islice(agen(), 54))) # Michael S. Branicky, Dec 25 2022

Extensions

a(4) and following changed by Georg Fischer, Dec 25 2022

A114808 The numbers 5^n-1 written in groups of three digits, with leading zeros omitted.

Original entry on oeis.org

424, 124, 624, 312, 415, 624, 781, 243, 906, 241, 953, 124, 976, 562, 448, 828, 124, 244, 140, 624, 122, 70, 312, 461, 35, 156, 243, 51, 757, 812, 415, 258, 789, 62, 476, 293, 945, 312, 438, 146, 972, 656, 241, 907, 348, 632, 812, 495, 367, 431, 640, 624, 476, 837, 158, 203, 124, 238, 418, 579
Offset: 1

Views

Author

Jonathan Vos Post, Feb 19 2006

Keywords

Examples

			4, 24, 124, 624, 3124, 15624, ...
		

Crossrefs

Programs

  • Maple
    L := [] ;
    for n from 1 to 30 do
        dggs := ListTools[Reverse](convert(5^n-1,base,10) );
        L := [op(L),op(dggs)] ;
    end do:
    for k from 1 to nops(L)-3 by 3 do
        op(k,L)*100+op(k+1,L)*10+op(k+2,L) ;
        printf("%d,",%) ;
    end do: # R. J. Mathar, Jun 23 2014
  • Mathematica
    FromDigits[#] & /@ Partition[ Flatten@ IntegerDigits@ Table[5^n - 1, {n, 22}], 3] (* Robert G. Wilson v, Jun 23 2014 *)

Extensions

Definition and terms realigned with A114645 by Robert G. Wilson v, Jun 23 2014

A114827 The numbers 7^n-1 written in groups of three digits, with leading zeros omitted.

Original entry on oeis.org

648, 342, 240, 16, 806, 117, 648, 823, 542, 576, 480, 40, 353, 606, 282, 475, 248, 197, 732, 674, 213, 841, 287, 200, 968, 890, 104, 66, 782, 230, 728, 484, 747, 561, 509, 942, 332, 329, 305, 696, 2, 326, 305, 139, 872, 61, 628, 413, 597, 910, 448, 113, 988
Offset: 1

Views

Author

Jonathan Vos Post, Feb 19 2006

Keywords

Examples

			6, 48, 342, 2400, 16806, 117648, ...
		

Crossrefs

Cf. A114645.

Extensions

Terms recomputed to use the definition equivalent to A114645 by Alois P. Heinz, Jun 23 2014
Showing 1-4 of 4 results.