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 A090098 #12 Sep 09 2019 11:58:13 %S A090098 7,18,24,32,43,51,68,74,76,99,124,126,132,151,168,174,176,182,207,218, %T A090098 232,243,268,274,276,282,299,318,324,326,351,374,376,382,399,407,418, %U A090098 426,432,443,468,474,482,499,507,518,524,526,543,551,574,576,582,599,607 %N A090098 Bases such that the smallest prime-power-pseudoprime is belonging to equals 25. %C A090098 Values of x such that A090096(x) = 25. %H A090098 Amiram Eldar, <a href="/A090098/b090098.txt">Table of n, a(n) for n = 1..10000</a> %t A090098 pspQ[n_,b_] := CompositeQ[n] && PowerMod[b, n - 1,n ] == 1 ; aQ[n_]:=pspQ[25, n] && AllTrue[{4,8,9,16}, !pspQ[#, n] &]; Select[Range[1000], aQ] (* _Amiram Eldar_, Sep 09 2019 *) %Y A090098 Cf. A007535, A090086, A090096, A090097. %K A090098 nonn %O A090098 1,1 %A A090098 _Labos Elemer_, Dec 01 2003 %E A090098 More terms from _Amiram Eldar_, Sep 09 2019