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,1

Links

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

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

Crossrefs

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

Sequence in context: A349109 A223332 A340696 * A197605 A198071 A218902

Adjacent sequences: A333425 A333426 A333427 * A333429 A333430 A333431

Keyword

nonn

Author

Amiram Eldar, Mar 20 2020

Status

approved