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

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,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..197 (terms below 10^11)

Example

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.

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

Crossrefs

Subsequence of A001101, A085775, A141769 and A334371.

Cf. A235397.

Sequence in context: A253870 A253877 A253543 * A250912 A251998 A210389

Adjacent sequences: A334369 A334370 A334371 * A334373 A334374 A334375

Keyword

nonn,base

Author

Amiram Eldar, Apr 25 2020

Status

approved