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

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

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..230 (terms < 10^14)

Example

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

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

Crossrefs

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

Cf. A235397.

Sequence in context: A056915 A233448 A112130 * A120702 A206317 A184563

Adjacent sequences: A334370 A334371 A334372 * A334374 A334375 A334376

Keyword

nonn,base

Author

Amiram Eldar, Apr 25 2020

Extensions

Terms a(6) and beyond from Giovanni Resta, Apr 27 2020

Status

approved