login
A333428
Starts of runs of 3 consecutive primorial base Niven numbers (A333426).
16
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,1
LINKS
EXAMPLE
64 is a term since 64, 65 and 66 are all primorial base Niven numbers.
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
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 20 2020
STATUS
approved