OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
1 is a term since 1 and 2 are both primorial base Niven numbers.
MATHEMATICA
max = 6; bases = Prime @ Range[max, 1, -1]; nmax = Times @@ bases - 1; primNivenQ[n_] := Divisible[n, Plus @@ IntegerDigits[n, MixedRadix[bases]]]; q1 = primNivenQ[1]; seq = {}; Do[q2 = primNivenQ[n]; If[q1 && q2, AppendTo[seq, n - 1]]; q1 = q2, {n, 2, nmax}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 20 2020
STATUS
approved