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.

A222725 Palindromic primes starting with a digit 3.

Original entry on oeis.org

3, 313, 353, 373, 383, 30103, 30203, 30403, 30703, 30803, 31013, 31513, 32323, 32423, 33533, 34543, 34843, 35053, 35153, 35353, 35753, 36263, 36563, 37273, 37573, 38083, 38183, 38783, 39293, 3001003, 3002003, 3007003, 3016103, 3026203, 3064603, 3065603, 3072703
Offset: 1

Views

Author

Jaroslav Krizek, Mar 09 2013

Keywords

Comments

Subsequence of A002385 (palindromic primes) and A002113 (palindromic numbers). Complement of A222726 (palindromic composite numbers starting with a digit 3) with respect to A043038 (palindromic numbers starting with a digit 3).

Crossrefs

A222726 Palindromic composite numbers starting with a digit 3.

Original entry on oeis.org

33, 303, 323, 333, 343, 363, 393, 3003, 3113, 3223, 3333, 3443, 3553, 3663, 3773, 3883, 3993, 30003, 30303, 30503, 30603, 30903, 31213, 31313, 31413, 31513, 31613, 31713, 31813, 31913, 32023, 32123, 32223, 32523, 32623, 32723, 32823, 32923, 33033, 33133, 33233
Offset: 1

Views

Author

Jaroslav Krizek, Mar 09 2013

Keywords

Comments

Subsequence of A032350 (palindromic nonprime numbers) and A002113 (palindromic numbers). Complement of A222725 (palindromic primes starting with a digit 3) with respect to A043038 (palindromic numbers starting with a digit 3).

Crossrefs

A043030 Base-9 palindromes that start with 3.

Original entry on oeis.org

3, 30, 246, 255, 264, 273, 282, 291, 300, 309, 318, 2190, 2280, 2370, 2460, 2550, 2640, 2730, 2820, 2910, 19686, 19767, 19848, 19929, 20010, 20091, 20172, 20253, 20334, 20424, 20505, 20586, 20667, 20748, 20829, 20910
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    okQ[n_] := Module[{idn = IntegerDigits[n, 9]}, First[idn] == 3 && FromDigits[IntegerDigits[n, 9]] == FromDigits[Reverse[idn]]]; Select[Range[20910], okQ] (* Robert P. P. McKone, Aug 22 2021, after Harvey P. Dale in A043038 *)
Showing 1-3 of 3 results.