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

A029951 Even palindromes.

Original entry on oeis.org

0, 2, 4, 6, 8, 22, 44, 66, 88, 202, 212, 222, 232, 242, 252, 262, 272, 282, 292, 404, 414, 424, 434, 444, 454, 464, 474, 484, 494, 606, 616, 626, 636, 646, 656, 666, 676, 686, 696, 808, 818, 828, 838, 848, 858, 868, 878, 888, 898, 2002, 2112, 2222
Offset: 1

Views

Author

Keywords

Crossrefs

Cf. A002113 (superset), A062287 (subset), A367807 (halved).

Programs

  • Mathematica
    palindromicQ[n_, b_:10] := TrueQ[IntegerDigits[n, b] == Reverse[IntegerDigits[n, b]]]; Select[Range[2, 10^4, 2], palindromicQ[#] &] (* Alonso del Arte, Feb 23 2012 *)
    Select[Range[0, 2222, 2], PalindromeQ] (* Michael De Vlieger, May 12 2017, Version 10.3 *)

A043040 Numbers that are palindromic and divisible by 5.

Original entry on oeis.org

0, 5, 55, 505, 515, 525, 535, 545, 555, 565, 575, 585, 595, 5005, 5115, 5225, 5335, 5445, 5555, 5665, 5775, 5885, 5995, 50005, 50105, 50205, 50305, 50405, 50505, 50605, 50705, 50805, 50905, 51015, 51115, 51215, 51315, 51415, 51515, 51615, 51715, 51815, 51915
Offset: 1

Views

Author

Keywords

Comments

Or, 0 and numbers that are palindromic and begin with 5.

Crossrefs

Programs

  • Mathematica
    palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]];
    Join[{0},Select[Range[5,100000,5], IntegerDigits[#][[1]] == 5 && palQ[#, 10] &]] (* T. D. Noe, Mar 12 2013 *)
    Select[5*Range[0,11000],IntegerDigits[#]==Reverse[IntegerDigits[#]]&] (* Harvey P. Dale, Nov 29 2015 *)

Extensions

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

A045642 Palindromic and divisible by 7.

Original entry on oeis.org

0, 7, 77, 161, 252, 343, 434, 525, 595, 616, 686, 707, 777, 868, 959, 1001, 1771, 2002, 2772, 3003, 3773, 4004, 4774, 5005, 5775, 6006, 6776, 7007, 7777, 8008, 8778, 9009, 9779, 10101, 10801, 11011, 11711, 12621, 13531, 14441, 15351, 16261, 16961
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 21000, 7], PalindromeQ] (* Paolo Xausa, Jul 06 2025 *)

Extensions

a(1) = 0 prepended by Paolo Xausa, Jul 07 2025

A045638 Palindromic and divisible by 3.

Original entry on oeis.org

0, 3, 6, 9, 33, 66, 99, 111, 141, 171, 222, 252, 282, 303, 333, 363, 393, 414, 444, 474, 525, 555, 585, 606, 636, 666, 696, 717, 747, 777, 828, 858, 888, 909, 939, 969, 999, 1221, 1551, 1881, 2112, 2442, 2772, 3003, 3333, 3663, 3993, 4224, 4554, 4884, 5115
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[0,5500,3],PalindromeQ] (* Harvey P. Dale, Apr 14 2023 *)

Extensions

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

A045639 Palindromic and divisible by 4.

Original entry on oeis.org

0, 4, 8, 44, 88, 212, 232, 252, 272, 292, 404, 424, 444, 464, 484, 616, 636, 656, 676, 696, 808, 828, 848, 868, 888, 2112, 2332, 2552, 2772, 2992, 4004, 4224, 4444, 4664, 4884, 6116, 6336, 6556, 6776, 6996, 8008, 8228, 8448, 8668, 8888, 21012, 21112, 21212
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]; Select[4*Range[0, 6000],palQ]  (* Harvey P. Dale, Jan 30 2011 *)

Extensions

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