A333428 Starts of runs of 3 consecutive primorial base Niven numbers (A333426).

64, 244, 424, 2344, 2524, 4624, 16180, 30064, 30244, 32344, 43900, 60064, 71620, 91408, 99340, 127060, 154780, 182500, 210220, 250936, 338632, 365860, 477280, 510544, 510724, 512824, 513160, 540544, 540880, 790900, 842884, 876988, 1021024, 1021648, 1024000, 1051720

Offset: 1

Author

Amiram Eldar, Mar 20 2020

Keywords

• nonn

Examples

			64 is a term since 64, 65 and 66 are all primorial base Niven numbers.
		

Links

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

Crossrefs

Cf. A154701, A328206, A328210, A328214, A330932, A333426, A333427.

Programs

Mathematica

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