The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A223490 Smallest Fermi-Dirac factor of n. 10
 1, 2, 3, 4, 5, 2, 7, 2, 9, 2, 11, 3, 13, 2, 3, 16, 17, 2, 19, 4, 3, 2, 23, 2, 25, 2, 3, 4, 29, 2, 31, 2, 3, 2, 5, 4, 37, 2, 3, 2, 41, 2, 43, 4, 5, 2, 47, 3, 49, 2, 3, 4, 53, 2, 5, 2, 3, 2, 59, 3, 61, 2, 7, 4, 5, 2, 67, 4, 3, 2, 71, 2, 73, 2, 3, 4, 7, 2, 79 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Note that this is not equal to the smallest Fermi-Dirac prime (A050376) dividing n, which is always A020639(n). - Antti Karttunen, Apr 15 2018 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 OEIS Wiki, "Fermi-Dirac representation" of n FORMULA a(n) = A213925(n,1). A209229(A100995(a(n))) = 1; A010055(a(n)) = 1. From Antti Karttunen, Apr 15 2018: (Start) a(1) = 1; and for n > 1, a(n) = A050376(A302786(n)). a(n) = n / A302792(n). a(n) = A302023(A020639(A302024(n))). (End) MATHEMATICA f[p_, e_] := p^(2^IntegerExponent[e, 2]); a[n_] := Min @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 26 2020 *) PROG (Haskell) a223490 = head . a213925_row (PARI) up_to = 65537; v050376 = vector(up_to); A050376(n) = v050376[n]; ispow2(n) = (n && !bitand(n, n-1)); i = 0; for(n=1, oo, if(ispow2(isprimepower(n)), i++; v050376[i] = n); if(i == up_to, break)); A052331(n) = { my(s=0, e); while(n > 1, fordiv(n, d, if(((n/d)>1)&&ispow2(isprimepower(n/d)), e = vecsearch(v050376, n/d); if(!e, print("v050376 too short!"); return(1/0)); s += 2^(e-1); n = d; break))); (s); }; A001511(n) = 1+valuation(n, 2); A223490(n) = if(1==n, n, A050376(A001511(A052331(n)))); \\ Antti Karttunen, Apr 15 2018 CROSSREFS Cf. A223491, A050376, A028233, A000040 (subsequence). Cf. A302023, A302024, A302786, A302792. Cf. also A020639. Sequence in context: A143120 A308201 A026362 * A244734 A230089 A081811 Adjacent sequences:  A223487 A223488 A223489 * A223491 A223492 A223493 KEYWORD nonn,look AUTHOR Reinhard Zumkeller, Mar 20 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 3 03:52 EDT 2021. Contains 346435 sequences. (Running on oeis4.)