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 A333428 #11 Apr 21 2020 12:06:06
%S A333428 64,244,424,2344,2524,4624,16180,30064,30244,32344,43900,60064,71620,
%T A333428 91408,99340,127060,154780,182500,210220,250936,338632,365860,477280,
%U A333428 510544,510724,512824,513160,540544,540880,790900,842884,876988,1021024,1021648,1024000,1051720
%N A333428 Starts of runs of 3 consecutive primorial base Niven numbers (A333426).
%H A333428 Amiram Eldar, <a href="/A333428/b333428.txt">Table of n, a(n) for n = 1..1000</a>
%e A333428 64 is a term since 64, 65 and 66 are all primorial base Niven numbers.
%t A333428 max = 7; bases = Prime @ Range[max, 1, -1]; nmax = Times @@ bases - 1; primNivenQ[n_] := Divisible[n, Plus @@ IntegerDigits[n, MixedRadix[bases]]]; q1 = primNivenQ[1]; q2 = primNivenQ[2]; seq = {}; Do[q3 = primNivenQ[n]; If[q1 && q2 && q3, AppendTo[seq, n - 2]]; q1 = q2; q2 = q3, {n, 3, nmax}]; seq
%Y A333428 Cf. A154701, A328206, A328210, A328214, A330932, A333426, A333427.
%K A333428 nonn
%O A333428 1,1
%A A333428 _Amiram Eldar_, Mar 20 2020