A273339 - OEIS

A273339

Smallest composite c such that n^(c-1) =/= 1 (mod c^2), i.e., smallest composite c that is not a "Wieferich pseudoprime" to base n.

%I #12 Jan 07 2017 13:48:12

%S 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,

%T 4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,4,

%U 4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4

%N Smallest composite c such that n^(c-1) =/= 1 (mod c^2), i.e., smallest composite c that is not a "Wieferich pseudoprime" to base n.

%C Smallest composite c such that n does not occur in row c of the array in A244752. - _Felix Fröhlich_, Jan 07 2017

%H Felix Fröhlich, <a href="/A273339/b273339.txt">Table of n, a(n) for n = 2..10000</a>

%o (PARI) a(n) = forcomposite(c=1, , if(Mod(n, c^2)^(c-1)!=1, return(c)))

%Y Cf. A240719, A244752, A256517, A267288, A270776.

%K nonn

%O 2,1

%A _Felix Fröhlich_, May 20 2016