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

A115738 k is prime and digits of k^2 include digits of k as substring.

Original entry on oeis.org

5, 66952741, 146509717, 753348181, 562984507451, 860628177919, 978058181203, 50385563791193
Offset: 1

Views

Author

Giovanni Resta, Jan 30 2006

Keywords

Comments

Subset of A046831.
a(9) > 10^14. Primes 43473168442554675203, 20944025626422831137347, 35083931242599287584057, and 569177878099445999493598065089 are also terms. - Giovanni Resta, Sep 10 2018

Examples

			66952741^2 = 4482_66952741_3081.
		

Crossrefs

Extensions

a(8) from Giovanni Resta, Sep 08 2018

A115761 Numbers k such that the digits of k^2, reversed, include the digits of k as a substring.

Original entry on oeis.org

1, 5, 6, 27, 74, 963, 5723, 6142, 6524, 9867, 53152, 65766, 69714, 351732, 409761, 497674, 624279, 664902, 697140, 781101, 2733747, 3879405, 4897317, 5031485, 6317056, 6971400, 8403702, 9324454, 16013465, 21646858, 34679962, 36909226, 38794051, 40781862, 41065012
Offset: 1

Views

Author

Giovanni Resta, Jan 30 2006

Keywords

Examples

			963^2 = 927(369).
		

Crossrefs

Contains A269588 as a subsequence.

Programs

  • Mathematica
    fQ[n_] := StringPosition[ IntegerString[n^2], StringReverse@ IntegerString@n] != {}; k = 1; lst = {}; While[k < 38794050, If[ fQ@k, AppendTo[lst, k]]; k++ ]; lst (* Robert G. Wilson v, Jul 28 2010 *)
    Select[Range[37*10^6],SequenceCount[Reverse[IntegerDigits[#^2]], IntegerDigits[ #]]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, May 02 2016 *)

Extensions

More terms from Robert G. Wilson v, Jul 28 2010
Terms a(33) and beyond from Giovanni Resta, May 04 2020

A115762 Numbers k such that the digits of k^3, reversed, include the digits of k as substring.

Original entry on oeis.org

1, 4, 5, 6, 9, 39, 67, 99, 670, 735, 999, 2424, 5619, 6700, 6966, 9999, 14597, 15458, 29266, 33795, 43259, 49664, 61256, 69566, 75463, 80238, 97155, 99999, 123798, 190544, 290105, 292660, 424068, 424846, 429163, 432590, 625503, 658458
Offset: 1

Views

Author

Giovanni Resta, Jan 30 2006

Keywords

Examples

			735^3 = 39706(537)5.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[660000],SequenceCount[IntegerDigits[IntegerReverse[#^3]],IntegerDigits[#]]>0&] (* Harvey P. Dale, May 13 2025 *)

A115764 Primes p such that the digits of p^3, reversed, include the digits of p as a substring.

Original entry on oeis.org

5, 67, 695263, 994871, 5616469, 31471711, 43693817, 878757569, 5149409929, 7866434053, 8603497223, 13880125751
Offset: 1

Views

Author

Giovanni Resta, Jan 30 2006

Keywords

Examples

			31471711^3 = 3(11717413)21891966598431.
		

Crossrefs

Showing 1-4 of 4 results.