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

Links

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

Example

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.

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

Crossrefs

Subsequence of A001101, A085775 and A154701.

Cf. A235397, A334346.

Sequence in context: A031553 A031733 A185528 * A118652 A084719 A258889

Adjacent sequences: A334368 A334369 A334370 * A334372 A334373 A334374

Keyword

nonn,base

Author

Amiram Eldar, Apr 25 2020

Status

approved