OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..659
PROG
(PARI) bases(n)=my(f=factor(n)[, 1]); n--; prod(i=1, #f, gcd(f[i]-1, n)) \\ Given a value of A194946, this function transforms it to a term of this sequence.
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Sep 15 2011
STATUS
approved