|
%I #15 May 09 2021 02:17:35
%S 2,4,8,16,36,40,48,100,144,324,484,900,1296,1764,2116,2704,3600,6084,
%T 9216,13728,19044,24336,30000,39204,39360,44100,51984,63888,72900,
%U 81648,93636,108900,112896,133956,142884,191844,229376,248004,269568,298116
%N Number of bases to which terms of A194946 are pseudoprime.
%H Charles R Greathouse IV, <a href="/A195327/b195327.txt">Table of n, a(n) for n = 1..659</a>
%H <a href="/index/Ps#pseudoprimes">Index entries for sequences related to pseudoprimes</a>
%o (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.
%Y Cf. A194946, A195328.
%K nonn
%O 1,1
%A _Charles R Greathouse IV_, Sep 15 2011
|
