|
%I #10 Apr 25 2020 21:38:42
%S 21481224,22314620,25502420,25502421,32432425,130062260,147026913,
%T 713021425,922216713,938710112,1012101135,1019292153,1113068913,
%U 1420791155,1545743565,1671500190,1805406154,1941702882,2010317425,2027025025,2200277555,2307662313,2437253313
%N Starts of runs of 4 consecutive Moran numbers (A001101).
%H Amiram Eldar, <a href="/A334372/b334372.txt">Table of n, a(n) for n = 1..197</a> (terms below 10^11)
%e 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.
%t 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
%Y Subsequence of A001101, A085775, A141769 and A334371.
%Y Cf. A235397.
%K nonn,base
%O 1,1
%A _Amiram Eldar_, Apr 25 2020
|
