OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
3 is a term since A276150(3) = 2, and gcd(3, 2) = 1.
MATHEMATICA
With[{max = 4}, bases = Prime@Range[max, 1, -1]; nmax = Times @@ bases - 1; sumdig[n_] := Plus @@ IntegerDigits[n, MixedRadix[bases]]; Select[Range[nmax], CoprimeQ[#, sumdig[#]] &]]
PROG
(PARI) is(n) = {my(p=2, s=0, m=n, r); while(m>0, r = m%p; s+=r; m\=p; p = nextprime(p+1)); gcd(n, s)==1; }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Dec 07 2022
STATUS
approved