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.

A089744 Least palindromic prime beginning with A089743(n).

Original entry on oeis.org

11, 2, 3, 5, 7, 919, 101, 11, 12421, 131, 14341, 151, 16061, 17471, 181, 191, 30103, 313, 32323, 33533, 34543, 353, 36263, 373, 383, 39293, 70207, 71317, 727, 73037, 74047, 757, 76367, 77377, 787, 797, 90709, 919, 929, 93139, 94049, 95959, 96269
Offset: 1

Views

Author

Amarnath Murthy, Nov 19 2003

Keywords

Crossrefs

Extensions

More terms from David Wasserman, Jul 28 2005

A088277 Let f(n) be the n-th palindrome in A089743. Then a(n) is the smallest palindromic prime that begins with f(n).

Original entry on oeis.org

11, 2, 3, 5, 7, 919, 11, 33533, 77377, 9902099, 101, 1114111, 1212121, 131, 1411141, 151, 1611161, 1712171, 181, 191, 303050303, 313, 32323, 3331333, 3439343, 353, 3635363, 373, 383, 3931393, 7073707, 7177717, 727, 737171737, 74747, 757
Offset: 1

Views

Author

Amarnath Murthy, Sep 29 2003

Keywords

Examples

			f(7) = 33, the 7th palindrome that is the beginning of a palindromic prime, so a(7) = A109864(33) = 33533.
		

Crossrefs

Extensions

Edited and extended by David Wasserman, Jul 28 2005

A082768 Numbers that begin with 1, 3, 7 or 9.

Original entry on oeis.org

1, 3, 7, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119
Offset: 1

Views

Author

Amarnath Murthy, Apr 18 2003

Keywords

Crossrefs

Cf. A082769, A082770, A045572 (Numbers that end with 1, 3, 7 or 9).

Programs

  • Maple
    isA082768 := proc(n)
        convert(n,base,10) ;
        if op(-1,%) in {1,3,7,9} then
            true;
        else
            false;
        end if;
    end proc:
    A082768 := proc(n)
        if n = 1 then
            1;
        else
            for a from procname(n-1)+ 1 do
                if isA082768(a) then
                    return a;
                end if;
            end do:
        end if;
    end proc:
    seq(A082768(n),n=1..120) ; # R. J. Mathar, Aug 27 2025
  • Mathematica
    Select[Range[119], MemberQ[{1, 3, 7, 9}, First[IntegerDigits[#]]] &] (* Jayanta Basu, Jun 24 2013 *)

Extensions

More terms from David Wasserman, Jul 28 2005
Offset changed by Andrew Howroyd, Sep 29 2024
Showing 1-3 of 3 results.