login
A195327
Number of bases to which terms of A194946 are pseudoprime.
3
2, 4, 8, 16, 36, 40, 48, 100, 144, 324, 484, 900, 1296, 1764, 2116, 2704, 3600, 6084, 9216, 13728, 19044, 24336, 30000, 39204, 39360, 44100, 51984, 63888, 72900, 81648, 93636, 108900, 112896, 133956, 142884, 191844, 229376, 248004, 269568, 298116
OFFSET
1,1
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
Sequence in context: A337716 A126137 A085294 * A266544 A348414 A333051
KEYWORD
nonn
AUTHOR
STATUS
approved