|
%I #10 Apr 25 2020 21:38:24
%S 3031,13116,46824,201614,456325,1310412,1499434,1825225,2217620,
%T 2318423,2522540,2784634,3132380,3276024,3931226,4013113,4555476,
%U 5017340,5211380,6309602,6338910,6526835,7197154,8678920,9108023,9258002,10256420,10533620,10614266,10810824
%N Starts of runs of 3 consecutive Moran numbers (A001101).
%H Amiram Eldar, <a href="/A334371/b334371.txt">Table of n, a(n) for n = 1..10000</a>
%e 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.
%t 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
%Y Subsequence of A001101, A085775 and A154701.
%Y Cf. A235397, A334346.
%K nonn,base
%O 1,1
%A _Amiram Eldar_, Apr 25 2020
|
