A185189 - OEIS

%I #12 Aug 19 2020 21:24:00

%S 3,5,7,9,11,13,16,17,19,23,25,27,29,31,32,37,41,43,47,49,53,59,61,64,

%T 67,71,73,79,81,83,89,97,101,103,107,109,113,121,125,127,128,131,137,

%U 139,149,151,157,163,167,169,173,179,181,191,193,197,199,211,223,227,229,233,239,241,243,251,256

%N Powers of 2 >= 16 and powers of odd primes.

%C Appears in Gauss's table of primitive roots and logs.

%D C. F. Gauss, Disquisitiones Arithmeticae, Yale, 1965; see Table 1, p. 463.

%H Robert Israel, <a href="/A185189/b185189.txt">Table of n, a(n) for n = 1..10000</a>

%p N:= 1000: # for terms <= N

%p R:= seq(2^i,i=4..floor(log[2](N))):

%p for p in select(isprime, [seq(i,i=3..N,2)]) do

%p   R:= R, seq(p^i,i=1..floor(log[p](N)))

%p od:

%p sort([R]); # _Robert Israel_, Aug 19 2020

%Y Cf. A185268.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Feb 19 2011

%E Corrected by _Robert Israel_, Aug 19 2020