cp's OEIS Frontend

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.

Showing 1-10 of 19 results. Next

A330687 Positions of records in A050377, number of ways to factor n into "Fermi-Dirac primes" (A050376).

Original entry on oeis.org

1, 4, 16, 64, 144, 256, 576, 1024, 1296, 2304, 5184, 9216, 20736, 82944, 186624, 331776, 746496, 1327104, 2073600, 2985984, 5308416, 8294400, 18662400, 21233664, 26873856, 33177600, 47775744, 51840000, 74649600, 107495424, 132710400, 207360000, 429981696, 530841600, 671846400, 829440000, 1194393600, 1719926784, 1866240000, 2687385600
Offset: 1

Views

Author

Antti Karttunen, Dec 28 2019

Keywords

Comments

From David A. Corneth, Dec 29 2019: (Start)
Each term is a perfect square. Proof: A050377(n) is multiplicative with a(p^e) = A018819(e) and A018819(2k) = A018819(2k+1) and this sequence considers just records so we only need exponents of the form 2k; i.e., terms are squares.
Furthermore, the exponent 2 occurs at most once in the prime factorization of a(n) as A018819(2)^2 = A018819(4) = 4. So if the last two exponents in the prime factorization of m are 2's then setting the first of those two exponents to 4 and the other to 0 gives the same A050377(m).
Example of an application of this proof: we have 3600 = 2^4 * 3^2 * 5^2. We see the last two exponents are 2's so we can set the first of those two to 4 and the second to 0. This gives 2^4 * 3^4 = 1296 and, indeed, A050377(1296) = A050377(3600) = 16.
It seems that most exponents of a(n) are divisible by 4.
More specifically: Let S(n) be the list, possibly with duplicates, of exponents occurring in the prime factorizations of terms with the sum of exponents in the prime factorization <= n.
Let R(n) = |{x : x==4, S(n)}| / |S(n)|.
For example, S(8) is found from the following terms: 4, 16, 64, 144, 256, 576 and 1296 as the exponents in the prime factorization are (2), (4), (6), (4, 2), (8), (6, 2), (4, 4). The sums of each of these exponents per term is <= 8. There are 10 exponents listed. Of these 10 there are 5 that are divisible by 4. Therefore R(8) = 5/10.
Then it seems that R(n) tends to some value > 0.8 as n grows. (End)

Crossrefs

Cf. A018819, A050376, A050377, A329900, A330684 (square roots), A330688 (the record values), A330689 (primorial deflation).
Subsequence of A025487.

Programs

  • Mathematica
    Block[{s = Rest@ Nest[Function[{a, n, b}, Append[a, {Times @@ Map[a[[# + 1, -1]] &, FactorInteger[n][[All, -1]] ], b}]] @@ {#1, #2, #1[[-1, -1]] + If[EvenQ@ #2, #1[[#2/2 + 1, -1]], 0 ]} & @@ {#, Length@ #} &, {{0, 1}, {1, 1}}, 10^5][[All, 1]], t}, t = Union@ FoldList[Max, s]; Map[FirstPosition[s, #][[1]] &, t]] (* Michael De Vlieger, Dec 29 2019 *)
  • PARI
    upto_e = 101; \\ 101 --> 211 terms.
    A018819(n) = if( n<1, n==0, if( n%2, A018819(n-1), A018819(n/2)+A018819(n-1))); \\ From A018819
    v018819 = vector(upto_e,n,A018819(n)); \\ Precompute.
    A050377(n) = factorback(apply(e -> v018819[e], factor(n)[, 2]));
    A283980(n) = {my(f=factor(n)); prod(i=1, #f~, my(p=f[i, 1], e=f[i, 2]); if(p==2, 6, nextprime(p+1))^e)}; \\ From A283980
    A330687list(e) = { my(lista = List([1, 2]), i=2, u = 2^e, t, m=0, v025487); while(lista[i] != u, if(2*lista[i] <= u, listput(lista,2*lista[i]); t = A283980(lista[i]); if(t <= u, listput(lista,t))); i++); v025487 = vecsort(Vec(lista)); lista = List([]); for(i=1,#v025487,if((t=A050377(v025487[i]))>m, listput(lista,v025487[i]); m=t)); Vec(lista); };
    v330687 = A330687list(upto_e);
    A330687(n) = v330687[n];
    for(n=1,#v330687,print1(A330687(n),", "));

Formula

A050377(a(n)) = A330688(n).
A329900(a(n)) = A330689(n).
a(n) = A330684(n)^2.

A330689 Primorial deflation of A330687 (record positions in A050377): a(n) is the unique integer x such that A108951(x) = A330687(n).

Original entry on oeis.org

1, 4, 16, 64, 36, 256, 144, 1024, 81, 576, 324, 2304, 1296, 5184, 2916, 20736, 11664, 82944, 14400, 46656, 331776, 57600, 32400, 1327104, 104976, 230400, 746496, 40000, 129600, 419904, 921600, 160000, 1679616, 3686400, 291600, 640000, 2073600, 6718464, 360000, 1166400, 2560000, 26873856, 1440000, 313600, 4665600, 10240000, 810000
Offset: 1

Views

Author

Antti Karttunen, Dec 28 2019

Keywords

Crossrefs

Programs

Formula

a(n) = A329900(A330687(n)).

A050378 Number of factorizations into members of A050376 by prime signature. A050377(A025487).

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 4, 2, 1, 4, 4, 4, 2, 6, 4, 4, 2, 6, 8, 4, 6, 1, 4, 4, 10, 8, 4, 6, 2, 8, 4, 10, 12, 8, 10, 2, 8, 8, 6, 14, 4, 12, 4, 16, 8, 10, 4, 12, 8, 6, 14, 8, 20, 1, 4, 16, 12, 14, 4, 12, 16, 10, 20, 8, 20, 2, 8, 24, 8, 12, 14, 8, 16, 6, 20, 16, 4, 10
Offset: 1

Views

Author

Christian G. Bower, Nov 15 1999

Keywords

Crossrefs

Extensions

More terms from Amiram Eldar, Jan 29 2019

A330688 Record values in A050377, number of ways to factor n into "Fermi-Dirac primes" (A050376).

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 12, 14, 16, 20, 24, 28, 40, 56, 60, 80, 84, 104, 112, 120, 144, 160, 168, 184, 200, 208, 216, 224, 240, 260, 288, 320, 360, 368, 400, 416, 432, 460, 480, 520, 576, 600, 624, 640, 720, 736, 800, 864, 920, 960, 1040, 1104, 1120, 1152, 1200, 1440, 1456, 1472, 1480, 1600, 1840, 2016, 2080, 2400, 2576, 2880, 2960, 3360
Offset: 1

Views

Author

Antti Karttunen, Dec 28 2019

Keywords

Crossrefs

Programs

  • PARI
    upto_e = 101; \\ 101 --> 211 terms
    A018819(n) = if( n<1, n==0, if( n%2, A018819(n-1), A018819(n/2)+A018819(n-1))); \\ From A018819
    v018819 = vector(upto_e,n,A018819(n));
    A050377(n) = factorback(apply(e -> v018819[e], factor(n)[, 2]));
    A283980(n) = {my(f=factor(n)); prod(i=1, #f~, my(p=f[i, 1], e=f[i, 2]); if(p==2, 6, nextprime(p+1))^e)}; \\ From A283980
    A330688list(e) = { my(lista = List([1, 2]), i=2, u = 2^e, t, m=0, v025487); while(lista[i] != u, if(2*lista[i] <= u, listput(lista,2*lista[i]); t = A283980(lista[i]); if(t <= u, listput(lista,t))); i++); v025487 = vecsort(Vec(lista)); lista = List([]); for(i=1,#v025487,if((t=A050377(v025487[i]))>m, listput(lista,t); m=t)); Vec(lista); };
    v330688 = A330688list(upto_e);
    A330688(n) = v330688[n];

Formula

a(n) = A050377(A330687(n)).

A330684 Square roots of the positions of records in A050377, number of ways to factor n into "Fermi-Dirac primes" (A050376).

Original entry on oeis.org

1, 2, 4, 8, 12, 16, 24, 32, 36, 48, 72, 96, 144, 288, 432, 576, 864, 1152, 1440, 1728, 2304, 2880, 4320, 4608, 5184, 5760, 6912, 7200, 8640, 10368, 11520, 14400, 20736, 23040, 25920, 28800, 34560, 41472, 43200, 51840, 57600, 82944, 86400, 100800, 103680, 115200, 129600, 172800, 207360, 230400, 259200, 345600, 388800, 403200
Offset: 1

Views

Author

Antti Karttunen, Dec 29 2019

Keywords

Comments

Like terms in A330687, also these are all found in A025487.

Crossrefs

Programs

Formula

a(n) = A000196(A330687(n)).
A108951(a(n)) = A000196(A330689(n)).
a(n) = A329900(A000196(A330689(n))).

A050376 "Fermi-Dirac primes": numbers of the form p^(2^k) where p is prime and k >= 0.

Original entry on oeis.org

2, 3, 4, 5, 7, 9, 11, 13, 16, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241
Offset: 1

Views

Author

Christian G. Bower, Nov 15 1999

Keywords

Comments

Every number n is a product of a unique subset of these numbers. This is sometimes called the Fermi-Dirac factorization of n (see A182979). Proof: In the prime factorization n = Product_{j>=1} p(j)^e(j) expand every exponent e(j) as binary number and pick the terms of this sequence corresponding to the positions of the ones in binary (it is clear that both n and n^2 have the same number of factors in this sequence, and that each factor appears with exponent 1 or 0).
Or, a(1) = 2; for n>1, a(n) = smallest number which cannot be obtained as the product of previous terms. This is evident from the unique factorization theorem and the fact that every number can be expressed as the sum of powers of 2. - Amarnath Murthy, Jan 09 2002
Except for the first term, same as A084400. - David Wasserman, Dec 22 2004
The least number having 2^n divisors (=A037992(n)) is the product of the first n terms of this sequence according to Ramanujan.
According to the Bose-Einstein distribution of particles, an unlimited number of particles may occupy the same state. On the other hand, according to the Fermi-Dirac distribution, no two particles can occupy the same state (by the Pauli exclusion principle). Unique factorizations of the positive integers by primes (A000040) and over terms of A050376 one can compare with two these distributions in physics of particles. In the correspondence with this, the factorizations over primes one can call "Bose-Einstein factorizations", while the factorizations over distinct terms of A050376 one can call "Fermi-Dirac factorizations". - Vladimir Shevelev, Apr 16 2010
The numbers of the form p^(2^k), where p is prime and k >= 0, might thus be called the "Fermi-Dirac primes", while the classic primes might be called the "Bose-Einstein primes". - Daniel Forgues, Feb 11 2011
In the theory of infinitary divisors, the most natural name of the terms is "infinitary primes" or "i-primes". Indeed, n is in the sequence, if and only if it has only two infinitary divisors. Since 1 and n are always infinitary divisors of n>1, an i-prime has no other infinitary divisors. - Vladimir Shevelev, Feb 28 2011
{a(n)} is the minimal set including all primes and closed with respect to squaring. In connection with this, note that n and n^2 have the same number of factors in their Fermi-Dirac representations. - Vladimir Shevelev, Mar 16 2012
In connection with this sequence, call an integer compact if the factors in its Fermi-Dirac factorization are pairwise coprime. The density of such integers equals (6/Pi^2)*Product_{prime p} (1+(Sum_{i>=1} p^(-(2^i-1))/(p+1))) = 0.872497... It is interesting that there exist only 7 compact factorials listed in A169661. - Vladimir Shevelev, Mar 17 2012
The first k terms of the sequence solve the following optimization problem:
Let x_1, x_2,..., x_k be integers with the restrictions: 2<=x_1A064547(Product{i=1..k} x_i) >= k. Let the goal function be Product_{i=1..k} x_i. Then the minimal value of the goal function is Product_{i=1..k} a(i). - Vladimir Shevelev, Apr 01 2012
From Joerg Arndt, Mar 11 2013: (Start)
Similarly to the first comment, for the sequence "Numbers of the form p^(3^k) or p^(2*3^k) where p is prime and k >= 0" one obtains a factorization into distinct factors by using the ternary expansion of the exponents (here n and n^3 have the same number of such factors).
The generalization to base r would use "Numbers of the form p^(r^k), p^(2*r^k), p^(3*r^k), ..., p^((r-1)*r^k) where p is prime and k >= 0" (here n and n^r have the same number of (distinct) factors). (End)
The first appearance of this sequence as a multiplicative basis in number theory with some new notions, formulas and theorems may have been in my 1981 paper (see the Abramovich reference). - Vladimir Shevelev, Apr 27 2014
Numbers n for which A064547(n) = 1. - Antti Karttunen, Feb 10 2016
Lexicographically earliest sequence of distinct nonnegative integers such that no term is a product of 2 or more distinct terms. Removing the distinctness requirement, the sequence becomes A000040 (the prime numbers); and the equivalent sequence where the product is of 2 distinct terms is A026416 (without its initial term, 1). - Peter Munn, Mar 05 2019
The sequence was independently developed as a multiplicative number system in 1985-1986 (and first published in 1995, see the Uhlmann reference) using a proof method involving representations of positive integers as sums of powers of 2. This approach offers an arguably simpler and more flexible means for analyzing the sequence. - Jeffrey K. Uhlmann, Nov 09 2022

Examples

			Prime powers which are not terms of this sequence:
  8 = 2^3 = 2^(1+2), 27 = 3^3 = 3^(1+2), 32 = 2^5 = 2^(1+4),
  64 = 2^6 = 2^(2+4), 125 = 5^3 = 5^(1+2), 128 = 2^7 = 2^(1+2+4)
"Fermi-Dirac factorizations":
  6 = 2*3, 8 = 2*4, 24 = 2*3*4, 27 = 3*9, 32 = 2*16, 64 = 4*16,
  108 = 3*4*9, 120 = 2*3*4*5, 121 = 121, 125 = 5*25, 128 = 2*4*16.
		

References

  • V. S. Abramovich, On an analog of the Euler function, Proceeding of the North-Caucasus Center of the Academy of Sciences of the USSR (Rostov na Donu) (1981) No. 2, 13-17 (Russian; MR0632989(83a:10003)).
  • S. Ramanujan, Highly Composite Numbers, Collected Papers of Srinivasa Ramanujan, p. 125, Ed. G. H. Hardy et al., AMS Chelsea 2000.
  • V. S. Shevelev, Multiplicative functions in the Fermi-Dirac arithmetic, Izvestia Vuzov of the North-Caucasus region, Nature sciences 4 (1996), 28-43 (in Russian; MR 2000f: 11097, pp. 3912-3913).
  • J. K. Uhlmann, Dynamic map building and localization: new theoretical foundations, Doctoral Dissertation, University of Oxford, Appendix 16, 1995.

Crossrefs

Cf. A000040 (primes, is a subsequence), A026416, A026477, A037992 (partial products), A050377-A050380, A052330, A064547, A066724, A084400, A176699, A182979.
Cf. A268388 (complement without 1).
Cf. A124010, subsequence of A000028, A000961, A213925, A223490.
Cf. A228520, A186945 (Fermi-Dirac analog of Ramanujan primes, A104272, and Labos primes, A080359).
Cf. also A268385, A268391, A268392.

Programs

  • Haskell
    a050376 n = a050376_list !! (n-1)
    a050376_list = filter ((== 1) . a209229 . a100995) [1..]
    -- Reinhard Zumkeller, Mar 19 2013
    
  • Maple
    isA050376 := proc(n)
        local f,e;
        f := ifactors(n)[2] ;
        if nops(f) = 1 then
            e := op(2,op(1,f)) ;
            if isA000079(e) then
                true;
            else
                false;
            end if;
        else
            false;
        end if;
    end proc:
    A050376 := proc(n)
        option remember ;
        local a;
        if n = 1 then
            2 ;
        else
            for a from procname(n-1)+1 do
                if isA050376(a) then
                    return a;
                end if;
            end do:
        end if;
    end proc: # R. J. Mathar, May 26 2017
  • Mathematica
    nn = 300; t = {}; k = 1; While[lim = nn^(1/k); lim > 2,  t = Join[t, Prime[Range[PrimePi[lim]]]^k]; k = 2 k]; t = Union[t] (* T. D. Noe, Apr 05 2012 *)
  • PARI
    {a(n)= local(m, c, k, p); if(n<=1, 2*(n==1), n--; c=0; m=2; while( cMichael Somos, Apr 15 2005; edited by Michel Marcus, Aug 07 2021
    
  • PARI
    lst(lim)=my(v=primes(primepi(lim)),t); forprime(p=2,sqrt(lim),t=p; while((t=t^2)<=lim,v=concat(v,t))); vecsort(v) \\ Charles R Greathouse IV, Apr 10 2012
    
  • PARI
    is_A050376(n)=2^#binary(n=isprimepower(n))==n*2 \\ M. F. Hasler, Apr 08 2015
    
  • PARI
    ispow2(n)=n && n>>valuation(n,2)==1
    is(n)=ispow2(isprimepower(n)) \\ Charles R Greathouse IV, Sep 18 2015
    
  • PARI
    isok(n)={my(e=isprimepower(n)); e && !bitand(e,e-1)} \\ Andrew Howroyd, Oct 16 2024
    
  • Python
    from sympy import isprime, perfect_power
    def ok(n):
      if isprime(n): return True
      answer = perfect_power(n)
      if not answer: return False
      b, e = answer
      if not isprime(b): return False
      while e%2 == 0: e //= 2
      return e == 1
    def aupto(limit):
      alst, m = [], 1
      for m in range(1, limit+1):
        if ok(m): alst.append(m)
      return alst
    print(aupto(241)) # Michael S. Branicky, Feb 03 2021
    
  • Python
    from sympy import primepi, integer_nthroot
    def A050376(n):
        def bisection(f,kmin=0,kmax=1):
            while f(kmax) > kmax: kmax <<= 1
            kmin = kmax >> 1
            while kmax-kmin > 1:
                kmid = kmax+kmin>>1
                if f(kmid) <= kmid:
                    kmax = kmid
                else:
                    kmin = kmid
            return kmax
        def f(x): return n+x-sum(primepi(integer_nthroot(x,1<Chai Wah Wu, Feb 18-19 2025
  • Scheme
    (define A050376 (MATCHING-POS 1 1 (lambda (n) (= 1 (A064547 n)))))
    ;; Requires also my IntSeq-library. - Antti Karttunen, Feb 09 2016
    

Formula

From Vladimir Shevelev, Mar 16 2012: (Start)
Product_{i>=1} a(i)^k_i = n!, where k_i = floor(n/a(i)) - floor(n/a(i)^2) + floor(n/a(i)^3) - floor(n/a(i)^4) + ...
Denote by A(x) the number of terms not exceeding x.
Then A(x) = pi(x) + pi(x^(1/2)) + pi(x^(1/4)) + pi(x^(1/8)) + ...
Conversely, pi(x) = A(x) - A(sqrt(x)). For example, pi(37) = A(37) - A(6) = 16-4 = 12. (End)
A209229(A100995(a(n))) = 1. - Reinhard Zumkeller, Mar 19 2013
From Vladimir Shevelev, Aug 31 2013: (Start)
A Fermi-Dirac analog of Euler product: Zeta(s) = Product_{k>=1} (1+a(k)^(-s)), for s > 1.
In particular, Product_{k>=1} (1+a(k)^(-2)) = Pi^2/6. (End)
a(n) = A268385(A268392(n)). [By their definitions.] - Antti Karttunen, Feb 10 2016
A000040 union A001248 union A030514 union A179645 union A030635 union .... - R. J. Mathar, May 26 2017

Extensions

Edited by Charles R Greathouse IV, Mar 17 2010
More examples from Daniel Forgues, Feb 09 2011

A212172 Row n of table represents second signature of n: list of exponents >= 2 in canonical prime factorization of n, in nonincreasing order, or 0 if no such exponent exists.

Original entry on oeis.org

0, 0, 0, 2, 0, 0, 0, 3, 2, 0, 0, 2, 0, 0, 0, 4, 0, 2, 0, 2, 0, 0, 0, 3, 2, 0, 3, 2, 0, 0, 0, 5, 0, 0, 0, 2, 2, 0, 0, 0, 3, 0, 0, 0, 2, 2, 0, 0, 4, 2, 2, 0, 2, 0, 3, 0, 3, 0, 0, 0, 2, 0, 0, 2, 6, 0, 0, 0, 2, 0, 0, 0, 3, 2, 0, 0, 2, 2, 0, 0, 0, 4, 4, 0, 0, 2, 0, 0
Offset: 1

Views

Author

Matthew Vandermast, Jun 03 2012

Keywords

Comments

Length of row n equals A056170(n) if A056170(n) is positive, or 1 if A056170(n) = 0.
The multiset of exponents >=2 in the prime factorization of n completely determines a(n) for over 20 sequences in the database (see crossreferences). It also determines the fractions A034444(n)/A000005(n) and A037445(n)/A000005(n).
For squarefree numbers, this multiset is { } (the empty multiset). The use of 0 in the table to represent each n with no exponents >=2 in its prime factorization accords with the usual OEIS practice of using 0 to represent nonexistent elements when possible. In comments, the second signature of squarefree numbers will be represented as { }.
For each second signature {S}, there exist values of j and k such that, if the second signature of n is {S}, then A085082(n) is congruent to j modulo k. These values are nontrivial unless {S} = { }. Analogous (but not necessarily identical) values of j and k also exist for each second signature with respect to A088873 and A181796.
Each sequence of integers with a given second signature {S} has a positive density, unlike the analogous sequences for prime signatures. The highest of these densities is 6/Pi^2 = 0.607927... for A005117 ({S} = { }).

Examples

			First rows of table read: 0; 0; 0; 2; 0; 0; 0; 3; 2; 0; 0; 2;...
12 = 2^2*3 has positive exponents 2 and 1 in its canonical prime factorization (1s are often left implicit as exponents). Since only exponents that are 2 or greater appear in a number's second signature, 12's second signature is {2}.
30 = 2*3*5 has no exponents greater than 1 in its prime factorization. The multiset of its exponents >= 2 is { } (the empty multiset), represented in the table with a 0.
72 = 2^3*3^2 has positive exponents 3 and 2 in its prime factorization, as does 108 = 2^2*3^3. Rows 72 and 108 both read {3,2}.
		

Crossrefs

A181800 gives first integer of each second signature. Also see A212171, A212173-A212181, A212642-A212644.
Functions determined by exponents >=2 in the prime factorization of n:
Additive: A046660, A056170.
Other: A007424, A051903 (for n > 1), A056626, A066301, A071325, A072411, A091050, A107078, A185102 (for n > 1), A212180.
Sequences that contain all integers of a specific second signature: A005117 (second signature { }), A060687 ({2}), A048109 ({3}).

Programs

  • Magma
    &cat[IsEmpty(e)select [0]else Reverse(Sort(e))where e is[pe[2]:pe in Factorisation(n)|pe[2]gt 1]:n in[1..102]]; // Jason Kimberley, Jun 13 2012
  • Mathematica
    row[n_] := Select[ FactorInteger[n][[All, 2]], # >= 2 &] /. {} -> 0 /. {k__} -> Sequence[k]; Table[row[n], {n, 1, 100}] (* Jean-François Alcover, Apr 16 2013 *)

Formula

For nonsquarefree n, row n is identical to row A057521(n) of table A212171.

A064179 Infinitary version of Moebius function: infinitary MoebiusMu of n, equal to mu(n) iff mu(n) differs from zero, else 1 or -1 depending on whether the sum of the binary digits of the exponents in the prime decomposition of n is even or odd.

Original entry on oeis.org

1, -1, -1, -1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, -1, -1, 1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, 1, 1, -1, 1, 1, -1, -1, -1, -1, 1, 1, 1, -1, 1, -1, 1, 1, 1, -1, -1, 1, -1, 1, 1, -1, -1, -1, 1, 1, 1, 1, -1, -1, 1, 1, -1, -1, -1, -1, 1, 1, 1, 1, -1, -1, 1, -1, 1, -1, -1, 1, 1, 1, -1, -1, -1, 1, 1, 1, 1, 1, -1, -1, 1, 1, 1, -1, -1, -1
Offset: 1

Views

Author

Wouter Meeussen, Sep 20 2001

Keywords

Comments

Apparently the (ordinary) Dirichlet inverse of A050377. - R. J. Mathar, Jul 15 2010
Also analog of Liouville's function (A008836) in Fermi-Dirac arithmetic, where the terms of A050376 play the role of primes (see examples). - Vladimir Shevelev, Oct 28 2013.

Examples

			G.f. = x - x^2 - x^3 - x^4 - x^5 + x^6 - x^7 + x^8 - x^9 + x^10 - x^11 + x^12 + ...
mu[45]=0 but iMoebiusMu[45]=1 because 45 = 3^2 * 5^1 and the binary digits of 2 and 1 add up to 2, an even number.
A unique representation of 48 over distinct terms of A050376 is 3*16. Since it contains even factors, then a(48)=1; for 54 such a representation is 2*3*9, thus a(54)=-1. - _Vladimir Shevelev_, Oct 28 2013
		

References

  • Vladimir S. Shevelev, Multiplicative functions in the Fermi-Dirac arithmetic, Izvestia Vuzov of the North-Caucasus region, Nature sciences 4 (1996), 28-43 (in Russian)

Crossrefs

Sequences with related definitions: A008683, A008836, A064547, A302777.
Positions of -1: A000028.
Positions of 1: A000379.
Sequences used to express relationships between the terms: A000188, A003961, A007913, A008833, A059897, A225546.

Programs

  • Mathematica
    iMoebiusMu[n_] := Switch[MoebiusMu[n], 1, 1, -1, -1, 0, If[OddQ[Plus@@(DigitCount[Last[Transpose[FactorInteger[n]]], 2, 1])], -1, 1]];
    (* The Moebius inversion formula seems to hold for iMoebiusMu and the infinitary_divisors of n: if g[ n_ ] := Plus@@(f/@iDivisors[ n ]) for all n, then f[ n_ ]===Plus@@(iMoebiusMu[ # ]g[ n/# ]&/@iDivisors[ n ]) *)
    f[p_, e_] := (-1)^DigitCount[e, 2, 1]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Dec 23 2023 *)
  • PARI
    {a(n) = my(A, p, e); if( n<1, 0, A = factor(n); prod(k=1, matsize(A)[1], [p, e] = A[k, ]; (-1) ^ subst( Pol( binary(e)), x, 1)))}; /* Michael Somos, Jan 08 2008 */
    
  • PARI
    a(n) = if (n==1, 1, (-1)^omega(core(n)) * a(core(n,1)[2])) \\ Peter Munn, Mar 16 2022
    
  • PARI
    a(n) = vecprod(apply(x -> (-1)^hammingweight(x), factor(n)[, 2])); \\ Amiram Eldar, Dec 23 2023
    
  • Python
    from math import prod
    from sympy import factorint
    def A064179(n): return prod(-1 if e.bit_count()&1 else 1 for e in factorint(n).values()) # Chai Wah Wu, Oct 12 2024
  • Scheme
    (define (A064179 n) (expt -1 (A064547 n))) ;; Antti Karttunen, Nov 23 2017
    

Formula

From Vladimir Shevelev Feb 20 2011: (Start)
Sum_{d runs through i-divisors of n} a(d)=1 if n=1, or 0 if n>1; Sum_{d runs through i-divisors of n} a(d)/d = A091732(n)/n.
Infinitary Moebius inversion:
If Sum_{d runs through i-divisors of n} f(d)=F(n), then f(n) = Sum_{d runs through i-divisors of n} a(d)*F(n/d). (End)
a(n) = (-1)^A064547(n). - R. J. Mathar, Apr 19 2011
Let k=k(n) be the number of terms of A050376 that divide n with odd maximal exponent. Then a(n) = (-1)^k. For example, if n=96, then the maximal exponent of 2 that divides 96 is 5, for 3 it is 1, for 4 it is 2, for 16 it is 1. Thus k(96)=3 and a(96)=-1. - Vladimir Shevelev, Oct 28 2013
From Peter Munn, Jan 25 2020: (Start)
a(A050376(n)) = -1; a(A059897(n,k)) = a(n) * a(k).
a(n^2) = a(n).
a(A003961(n)) = a(n).
a(A225546(n)) = a(n).
a(A000028(n)) = -1; a(A000379(n)) = 1.
(End)
a(n) = a(A007913(n)) * a(A008833(n)) = (-1)^A001221(A007913(n)) * a(A000188(n)). - Peter Munn, Mar 16 2022
From Amiram Eldar, Dec 23 2023: (Start)
Multiplicative with a(p^e) = (-1)^A000120(e).
Dirichlet g.f.: 1/Product_{k>=0} zeta(2^k * s) (Steuding et al., 2011). (End)

A368781 The maximal exponent in the unique factorization of n in terms of distinct "Fermi-Dirac primes".

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 4, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 4, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 4, 4, 1, 1, 2, 1, 1, 1
Offset: 1

Views

Author

Amiram Eldar, Jan 05 2024

Keywords

Comments

First differs from A335428 at n = 36. Differs from A050377, A344417 and A347437 at n = 1 and then at n = 36.
In the unique factorization of n in terms of distinct "Fermi-Dirac primes", n is represented as a product of prime powers (A246655) whose exponents are powers of 2 (A000079). a(n) is the maximal exponent of these prime powers (and not the maximal exponent of the exponents that are powers of 2). Thus, a(n) is a power of 2 for n >= 2.

Examples

			For n = 972 = 2^2 * 3^5, the unique factorization of 972 in terms of distinct "Fermi-Dirac primes" is 2^(2^1) * 3^(2^0) * 3^(2^2). Therefore, a(972) = 2^2 = 4.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := 2^Floor[Log2[Max[FactorInteger[n][[;; , 2]]]]]; a[1] = 0; Array[a, 100]
  • PARI
    a(n) = if(n > 1, 2^exponent(vecmax(factor(n)[, 2])), 0);
    
  • Python
    from sympy import factorint
    def A368781(n): return 1<1 else 0 # Chai Wah Wu, Apr 11 2025

Formula

a(n) = A053644(A051903(n)).
a(n) = 2^(A299090(n)-1) for n >= 2.
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1 + Sum_{k>=1} (2^(k-1) * (1 - 1/zeta(2^k))) = 1.56056154773294953123... .
a(n) = A051903(A353897(n)). - Amiram Eldar, May 07 2024

A384912 The number of unordered factorizations of n into exponentially squarefree prime powers (A384419).

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 3, 2, 1, 1, 1, 6, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 4, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 2, 1, 1, 2, 9, 1, 1, 1, 2, 1, 1, 1, 6, 1, 1, 2, 2, 1, 1, 1, 4, 4, 1, 1, 2, 1, 1, 1
Offset: 1

Views

Author

Amiram Eldar, Jun 12 2025

Keywords

Comments

First differs from A384913 at n = 64.

Examples

			a(4) = 2 since 4 has 2 factorizations: 2^1 * 2^1 and 2^2, with squarefree exponents 1 and 2.
		

Crossrefs

Programs

  • Mathematica
    s[n_] := s[n] = If[n == 0, 1, Sum[Sum[d * Abs[MoebiusMu[d]], {d, Divisors[j]}] * s[n-j], {j, 1, n}] / n]; (* Jean-François Alcover at A073576 *)
    f[p_, e_] := s[e]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100]
  • PARI
    s(n) = if(n < 1, 1, sum(j = 1, n, sumdiv(j, d, d*issquarefree(d)) * s(n-j))/n);
    a(n) = vecprod(apply(s, factor(n)[, 2]));

Formula

Multiplicative with a(p^e) = A073576(e).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Product_{p prime} f(1/p) = 2.1069024289184419840496..., where f(x) = (1-x) / Product_{k>=1} (1-x^A005117(k)).
Showing 1-10 of 19 results. Next