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.

A083852 Decimal palindromes that are multiples of 11.

Original entry on oeis.org

0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 121, 242, 363, 484, 616, 737, 858, 979, 1001, 1111, 1221, 1331, 1441, 1551, 1661, 1771, 1881, 1991, 2002, 2112, 2222, 2332, 2442, 2552, 2662, 2772, 2882, 2992, 3003, 3113, 3223, 3333, 3443, 3553, 3663, 3773, 3883, 3993, 4004
Offset: 1

Views

Author

Reinhard Zumkeller, May 06 2003

Keywords

Comments

A083850(a(n))>0; palindromes with even length are terms.

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 5500, 11], PalindromeQ] (* Paolo Xausa, Jul 07 2025 *)
  • PARI
    forstep(k=0, 10^5, 11, d=digits(k); d==Vecrev(d) && print1(k, ", ")) \\ Jeppe Stig Nielsen, May 08 2020

A045643 Palindromic and divisible by 8.

Original entry on oeis.org

0, 8, 88, 232, 272, 424, 464, 616, 656, 696, 808, 848, 888, 2112, 2552, 2992, 4224, 4664, 6336, 6776, 8008, 8448, 8888, 21112, 21312, 21512, 21712, 21912, 23032, 23232, 23432, 23632, 23832, 25152, 25352, 25552, 25752, 25952, 27072, 27272, 27472
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]];Select[ 8Range[0,3500],palQ] (* Harvey P. Dale, Jun 06 2011 *)
    Select[8*Range[0, 3500],PalindromeQ] (* Harvey P. Dale, Feb 17 2023 *)

Extensions

Edited to include a(1) = 0 by Paolo Xausa, Jul 07 2025

A045644 Palindromic and divisible by 9.

Original entry on oeis.org

0, 9, 99, 171, 252, 333, 414, 585, 666, 747, 828, 909, 999, 1881, 2772, 3663, 4554, 5445, 6336, 7227, 8118, 9009, 9999, 10701, 11511, 12321, 13131, 14841, 15651, 16461, 17271, 18081, 18981, 19791, 20502, 21312, 22122, 23832, 24642, 25452, 26262
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Select[9*Range[0,3000],PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2020 *)

Extensions

Edited to include a(1) = 0 by Paolo Xausa, Jul 07 2025
Showing 1-3 of 3 results.