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

A334372 Starts of runs of 4 consecutive Moran numbers (A001101).

Original entry on oeis.org

21481224, 22314620, 25502420, 25502421, 32432425, 130062260, 147026913, 713021425, 922216713, 938710112, 1012101135, 1019292153, 1113068913, 1420791155, 1545743565, 1671500190, 1805406154, 1941702882, 2010317425, 2027025025, 2200277555, 2307662313, 2437253313
Offset: 1

Views

Author

Amiram Eldar, Apr 25 2020

Keywords

Examples

			21481224 is a term since 21481224/(2+1+4+8+1+2+2+4) = 895051, 21481225/(2+1+4+8+1+2+2+5) = 859249, 21481226/(2+1+4+8+1+2+2+6) = 826201 and 21481227/(2+1+4+8+1+2+2+7) = 795601 are all primes.
		

Crossrefs

Subsequence of A001101, A085775, A141769 and A334371.
Cf. A235397.

Programs

  • Mathematica
    moranQ[n_] := PrimeQ[n / Plus @@ IntegerDigits[n]]; m = moranQ /@ Range[4]; seq = {}; Do[If[And @@ m, AppendTo[seq, k - 4]]; m = Join[Rest[m], {moranQ[k]}], {k, 5, 3 * 10^7}]; seq

A334373 Starts of runs of 5 consecutive Moran numbers (A001101).

Original entry on oeis.org

25502420, 5301223225, 13242121221, 32005512020, 74761736450, 213415171233, 221221400424, 232212103220, 243857053493, 685392911334, 732258727252, 889011113804, 905191111482, 1013460525033, 1080719141080, 1229198438214, 1461057000513, 1961972092132, 2157993351414
Offset: 1

Views

Author

Amiram Eldar, Apr 25 2020

Keywords

Examples

			25502420 is a term since 25502420, 25502421, 25502422, 25502423 and 25502424 are all Moran numbers.
		

Crossrefs

Subsequence of A001101, A085775, A330928, A334371 and A334372.
Cf. A235397.

Programs

  • Mathematica
    moranQ[n_] := PrimeQ[n / Plus @@ IntegerDigits[n]]; m = moranQ /@ Range[5]; seq = {}; Do[If[And @@ m, AppendTo[seq, k - 5]]; m = Join[Rest[m], {moranQ[k]}], {k, 6, 10^8}]; seq

Extensions

Terms a(6) and beyond from Giovanni Resta, Apr 27 2020
Showing 1-2 of 2 results.