A334371 Starts of runs of 3 consecutive Moran numbers (A001101).

3031, 13116, 46824, 201614, 456325, 1310412, 1499434, 1825225, 2217620, 2318423, 2522540, 2784634, 3132380, 3276024, 3931226, 4013113, 4555476, 5017340, 5211380, 6309602, 6338910, 6526835, 7197154, 8678920, 9108023, 9258002, 10256420, 10533620, 10614266, 10810824

Offset: 1

Author

Amiram Eldar, Apr 25 2020

Keywords

• nonn
• base

Examples

			3031 is a term since 3031/(3+0+3+1) = 433, 3032/(3+0+3+2) = 379 and 3033/(3+0+3+3) = 337 are all primes.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A001101, A085775 and A154701.

Cf. A235397, A334346.

Programs

Mathematica

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