This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A334371 #10 Apr 25 2020 21:38:24 %S A334371 3031,13116,46824,201614,456325,1310412,1499434,1825225,2217620, %T A334371 2318423,2522540,2784634,3132380,3276024,3931226,4013113,4555476, %U A334371 5017340,5211380,6309602,6338910,6526835,7197154,8678920,9108023,9258002,10256420,10533620,10614266,10810824 %N A334371 Starts of runs of 3 consecutive Moran numbers (A001101). %H A334371 Amiram Eldar, <a href="/A334371/b334371.txt">Table of n, a(n) for n = 1..10000</a> %e A334371 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 A334371 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 A334371 Subsequence of A001101, A085775 and A154701. %Y A334371 Cf. A235397, A334346. %K A334371 nonn,base %O A334371 1,1 %A A334371 _Amiram Eldar_, Apr 25 2020