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.

A028868 Primes that when squared give numbers with digits in nonascending order.

Original entry on oeis.org

2, 3, 29, 31
Offset: 1

Views

Author

Keywords

Comments

No other solutions below 2*10^9 (probably finite). - Dec 15 1999
No other solutions below 10^20. - David A. Corneth, Oct 28 2023, recomputed after a remark from Max Alekseyev, David A. Corneth, Aug 20 2024
Primes p such that p^2 is in A062826. - Max Alekseyev, Aug 18 2024

Examples

			From _David A. Corneth_, Oct 28 2023: (Start)
31 is in the sequence as 31 is prime and 31^2 = 961 which has its digits in nonascending order.
2979 is not in the sequence even though 2979^2 = 8874441 does have digits in nonascending order but 2979 = 3^2 * 331 is not prime. (End)
		

Crossrefs

Programs

  • PARI
    is(n) = my(d = digits(n^2)); d == vecsort(d,,4) && isprime(n) \\ David A. Corneth, Oct 28 2023
    
  • PARI
    \\ see link for a faster program

Extensions

Name clarified by Jon E. Schoenfield, Oct 27 2023

A028865 Primes that when squared gives numbers with digits in nondecreasing order.

Original entry on oeis.org

2, 3, 5, 7, 13, 17, 37, 67, 83, 107, 167, 337, 367, 383, 587, 1667, 166667, 333337, 333367, 333667, 336667, 666667, 33333667, 33666667, 66666667, 333333367, 666666667, 1666666667, 3336666667, 33333366667, 66666666667, 166666666667, 333333333367, 333333333667, 333336666667
Offset: 1

Views

Author

Keywords

Crossrefs

Extensions

Title changed to reflect terms by Sean A. Irvine, Feb 12 2020
a(26)-a(35) from Giovanni Resta, Feb 13 2020

A028866 Squares of primes having digits in nondecreasing order.

Original entry on oeis.org

4, 9, 25, 49, 169, 289, 1369, 4489, 6889, 11449, 27889, 113569, 134689, 146689, 344569, 2778889, 27777888889, 111113555569, 111133556689, 111333666889, 113344668889, 444444888889, 1111133355666889, 1133444466888889
Offset: 1

Views

Author

Keywords

Comments

What is the rate of growth of this sequence?

Crossrefs

Subsequence of A052043.

Programs

  • Mathematica
    Select[Prime[Range[100]]^2, IntegerDigits[#] == Sort[IntegerDigits[#]] &] (* Alonso del Arte, Jan 18 2017 *)
  • PARI
    is(n)=my(d=digits(n));d==vecsort(d) && issquare(n,&n) && isprime(n) \\ Charles R Greathouse IV, Jun 05 2013

Extensions

Title changed to reflect terms by Sean A. Irvine, Feb 12 2020
Showing 1-3 of 3 results.