# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a090097
Showing 1-1 of 1

%I A090097 #15 Sep 09 2019 11:58:04
%S A090097 8,10,19,26,28,35,44,46,55,62,64,71,80,82,91,98,100,107,116,118,127,
%T A090097 134,136,143,152,154,163,170,172,179,188,190,199,206,208,215,224,226,
%U A090097 235,242,244,251,260,262,271,278,280,287,296,298,307,314,316,323,332,334
%N A090097 Bases n such that the smallest prime-power-pseudoprime to base n is 9.
%C A090097 Values of x such that A090096(x) = 9.
%H A090097 Amiram Eldar, <a href="/A090097/b090097.txt">Table of n, a(n) for n = 1..10000</a>
%t A090097 pspQ[n_,b_] := CompositeQ[n] &&  PowerMod[b, n - 1,n ] == 1 ; aQ[n_]:=pspQ[9, n] && AllTrue[{4,8}, !pspQ[#, n] &]; Select[Range[1000], aQ] (* _Amiram Eldar_, Sep 09 2019 *)
%Y A090097 Cf. A007535, A090086, A090096.
%K A090097 nonn
%O A090097 1,1
%A A090097 _Labos Elemer_, Dec 01 2003
%E A090097 More terms from _Amiram Eldar_, Sep 09 2019

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE