|
%I
%S 1,2,4,8,11,16,22,32,44,64,88,121,128,176,242,256,352,484,512,704,968,
%T 1024,1331,1408,1936,2048,2662,2816,3872,4096,5324,5632,7744,8192,
%U 10648,11264,14641,15488,16384,21296,22528,29282,30976,32768
%N Numbers of the form 2^i*11^j.
%C A204455(11*a(n)) = 11, and only for these numbers. - From Wolfdieter Lang, Feb 04 2012
%H Vincenzo Librandi and Charles R Greathouse IV, <a href="/A003596/b003596.txt">Table of n, a(n) for n = 1..10000</a> (first 100 terms from Librandi)
%t fQ[n_] := PowerMod[22,n,n]==0; Select[Range[40000], fQ] (* Vincenzo Librandi, Feb 04 2012 *)
%o (PARI) list(lim)=my(v=List(),N);for(n=0,log(lim)\log(11),N=11^n;while(N<=lim,listput(v,N);N<<=1));vecsort(Vec(v)) \\ _Charles R Greathouse IV_, Jun 28 2011
%K nonn,easy,changed
%O 1,2
%A _N. J. A. Sloane_.
|
