OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
3 is a term since A034968(3) = 2, and gcd(3, 2) = 1.
MATHEMATICA
q[n_] := Module[{k = 2, s = 0, m = n, r}, While[m > 0, r=Mod[m, k]; s+=r; m=(m-r)/k; k++]; CoprimeQ[n, s]]; Select[Range[120], q]
PROG
(PARI) is(n)={my(k=2, s=0, m=n); while(m>0, s+=m%k; m\=k; k++); gcd(s, n)==1; }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Dec 07 2022
STATUS
approved