This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A090087 #7 Nov 11 2019 04:33:25 %S A090087 9,341,91,15,217,35,25,9,91,9,15,65,21,15,341,15,9,25,9,21,55,21,33, %T A090087 25,39,9,65,9,15,49,15,25,85,15,9,35,9,39,95,39,15,205,21,9,133,9,65, %U A090087 49,15,21,25,51,9,55,9,15,25,57,15,341,15,9,341,9,33,65,33,25,35,69,9,85,9,15 %N A090087 Smallest odd pseudoprimes to base n, not necessarily exceeding n. Compare with A007535 and A090086. %H A090087 Amiram Eldar, <a href="/A090087/b090087.txt">Table of n, a(n) for n = 1..10000</a> %F A090087 a(n)=Min{x=odd number; Mod[ -1+n^(x-1), x]=0} %t A090087 a[n_] := Module[{k = 1}, While[GCD[n, k] > 1 || PrimeQ[k] || PowerMod[n, k - 1, k] != 1, k += 2]; k]; Array[a, 100] (* _Amiram Eldar_, Nov 11 2019 *) %Y A090087 Cf. A007535, A090986, A090088, A090089. %K A090087 nonn %O A090087 1,1 %A A090087 _Labos Elemer_, Nov 25 2003