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.

A059007 Numbers m such that m^2 reversed is a prime.

Original entry on oeis.org

4, 14, 19, 28, 32, 37, 38, 40, 41, 62, 85, 89, 95, 97, 106, 119, 136, 139, 140, 190, 193, 196, 266, 271, 274, 277, 280, 281, 313, 316, 320, 325, 328, 331, 334, 335, 353, 355, 361, 362, 370, 373, 377, 380, 383, 397, 398, 400, 401, 403, 410, 412, 421, 434, 439
Offset: 1

Views

Author

Robert G. Wilson v, Jan 16 2001

Keywords

Examples

			28 is in the sequence because the reverse of 28^2 is 487 which is a prime. - _Indranil Ghosh_, Feb 10 2017
		

Crossrefs

Cf. A007488.
Numbers m such that m^k reversed is a prime: A059008 (k=3), A059205 (k=4), A059206 (k=5), A059207 (k=6), A059208 (k=7), A059209 (k=8), A059210 (k=9), A059211 (k=10), A059212 (k=11), A059213 (k=12).

Programs

  • Magma
    [n: n in [1..500] | IsPrime(Seqint(Reverse(Intseq(n^2))))]; // Marius A. Burtea, Jan 12 2019
    
  • Mathematica
    Select[ Range[ 1000 ], PrimeQ[ ToExpression[ StringReverse[ ToString[ #^2 ] ] ] ] & ]
    Select[Range[500],PrimeQ[IntegerReverse[#^2]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 10 2019 *)
  • PARI
    isok(n) = isprime(fromdigits(Vecrev(digits(n^2)))); \\ Michel Marcus, Jan 12 2019

A350363 Primes whose reversal is a ninth power.

Original entry on oeis.org

23888027348153, 17571893445665616311, 3627487775963728773631, 5213075488148035940813, 232364835105859429802371, 1648344985192619771689693, 6522990445513252220198849, 6771520922071318266744521, 23295376285906990980268061, 29758574646480445207299379
Offset: 1

Views

Author

Mohammed Yaseen, Dec 27 2021

Keywords

Crossrefs

Primes whose reversal is a k-th power: A007488 (k=2), A057699 (k=3), A058996 (k=4), A059000 (k=5), A059001 (k=6), A059002 (k=7), A059003 (k=8), A059005 (k=10).

Programs

  • Mathematica
    Union[(i=IntegerReverse)@Select[Range@1000^9,PrimeQ@i@#&]] (* Giorgos Kalogeropoulos, Jan 04 2022 *)
    Select[IntegerReverse/@(Range[1000]^9),PrimeQ]//Union (* Harvey P. Dale, Nov 27 2024 *)
  • PARI
    flip(n)=fromdigits(Vecrev(digits(n))) \\ A004086
    Set(select(isprime, vector(1000, n, flip(n^9)))) \\ adapted from A057699
    
  • Python
    from sympy import isprime
    flip9 = (int(str(k**9)[::-1]) for k in range(1, 1000) if k%10)
    print(sorted(filter(isprime, flip9))) # Michael S. Branicky, Jan 02 2022

A059702 Primes p such that p^9 reversed is also prime.

Original entry on oeis.org

131, 223, 541, 769, 811, 829, 967, 1021, 1259, 1669, 2087, 2089, 2153, 2203, 2239, 2699, 2777, 2851, 3163, 3499, 3767, 4159, 4507, 4591, 4721, 4999, 6271, 7673, 9649, 10067, 10427, 10639, 10709, 10789, 11443, 11549, 12547, 13259, 13337, 14737
Offset: 1

Views

Author

Robert G. Wilson v, Feb 06 2001

Keywords

Crossrefs

Cf. A059210.

Programs

  • Magma
    [p: p in PrimesUpTo(15000)|IsPrime(Seqint(Reverse(Intseq(p^9))))]; // Vincenzo Librandi, Apr 12 2013
  • Mathematica
    Select[ Range[ 17000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^9 ] ] ] ] & ]
Showing 1-3 of 3 results.