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-8 of 8 results.

A336658 Numbers k such that k and k+1 both have the prime signature (2,1,1,1) (A189982).

Original entry on oeis.org

11780, 20349, 24794, 33579, 36764, 37323, 38324, 38675, 38709, 42020, 44505, 47564, 47684, 51204, 52155, 53955, 55419, 56259, 64844, 68475, 71379, 71994, 75284, 77714, 79134, 80475, 81548, 81549, 83420, 85491, 86715, 87164, 87380, 90524, 92364, 94940, 95403, 95589
Offset: 1

Views

Author

Amiram Eldar, Jul 28 2020

Keywords

Comments

Goldston et al. (2011) proved that this sequence is infinite.
Some consecutive terms are (81548, 81549), (141218, 141219), (179828, 179829). - David A. Corneth, Jul 29 2020

Examples

			11780 is a term since 11780 = 2^2 * 5 * 19 * 31 and 11781 = 3^2 * 7 * 11 * 17.
		

Crossrefs

Subsequence of A140078 and A274362.
Cf. A189982.

Programs

  • Mathematica
    seqQ[n_] := Sort[FactorInteger[n][[;; , 2]]] == {1, 1, 1, 2}; Select[Range[10^5], seqQ[#] && seqQ[# + 1] &]

A101296 n has the a(n)-th distinct prime signature.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 6, 2, 4, 4, 7, 2, 6, 2, 6, 4, 4, 2, 8, 3, 4, 5, 6, 2, 9, 2, 10, 4, 4, 4, 11, 2, 4, 4, 8, 2, 9, 2, 6, 6, 4, 2, 12, 3, 6, 4, 6, 2, 8, 4, 8, 4, 4, 2, 13, 2, 4, 6, 14, 4, 9, 2, 6, 4, 9, 2, 15, 2, 4, 6, 6, 4, 9, 2, 12, 7, 4, 2, 13, 4, 4, 4, 8, 2, 13, 4, 6, 4, 4, 4, 16, 2, 6, 6, 11, 2, 9, 2, 8, 9, 4, 2, 15, 2, 9, 4, 12, 2, 9, 4, 6, 6, 4, 4, 17
Offset: 1

Views

Author

David Wasserman, Dec 21 2004

Keywords

Comments

From Antti Karttunen, May 12 2017: (Start)
Restricted growth sequence transform of A046523, the least representative of each prime signature. Thus this partitions the natural numbers to the same equivalence classes as A046523, i.e., for all i, j: a(i) = a(j) <=> A046523(i) = A046523(j), and for that reason satisfies in that respect all the same conditions as A046523. For example, we have, for all i, j: if a(i) = a(j), then:
A000005(i) = A000005(j), A008683(i) = A008683(j), A286605(i) = A286605(j).
So, this sequence (instead of A046523) can be used for finding sequences where a(n)'s value is dependent only on the prime signature of n, that is, only on the multiset of prime exponents in the factorization of n. (End)
This is also the restricted growth sequence transform of many other sequences, for example, that of A181819. See further comments there. - Antti Karttunen, Apr 30 2022

Examples

			From _David A. Corneth_, May 12 2017: (Start)
1 has prime signature (), the first distinct prime signature. Therefore, a(1) = 1.
2 has prime signature (1), the second distinct prime signature after (1). Therefore, a(2) = 2.
3 has prime signature (1), as does 2. Therefore, a(3) = a(2) = 2.
4 has prime signature (2), the third distinct prime signature after () and (1). Therefore, a(4) = 3. (End)
From _Antti Karttunen_, May 12 2017: (Start)
Construction of restricted growth sequences: In this case we start with a(1) = 1 for A046523(1) = 1, and thereafter, for all n > 1, we use the least so far unused natural number k for a(n) if A046523(n) has not been encountered before, otherwise [whenever A046523(n) = A046523(m), for some m < n], we set a(n) = a(m).
For n = 2, A046523(2) = 2, which has not been encountered before (first prime), thus we allot for a(2) the least so far unused number, which is 2, thus a(2) = 2.
For n = 3, A046523(2) = 2, which was already encountered as A046523(1), thus we set a(3) = a(2) = 2.
For n = 4, A046523(4) = 4, not encountered before (first square of prime), thus we allot for a(4) the least so far unused number, which is 3, thus a(4) = 3.
For n = 5, A046523(5) = 2, as for the first time encountered at n = 2, thus we set a(5) = a(2) = 2.
For n = 6, A046523(6) = 6, not encountered before (first semiprime pq with distinct p and q), thus we allot for a(6) the least so far unused number, which is 4, thus a(6) = 4.
For n = 8, A046523(8) = 8, not encountered before (first cube of a prime), thus we allot for a(8) the least so far unused number, which is 5, thus a(8) = 5.
For n = 9, A046523(9) = 4, as for the first time encountered at n = 4, thus a(9) = 3.
(End)
From _David A. Corneth_, May 12 2017: (Start)
(Rough) description of an algorithm of computing the sequence:
Suppose we want to compute a(n) for n in [1..20].
We set up a vector of 20 elements, values 0, and a number m = 1, the minimum number we haven't checked and c = 0, the number of distinct prime signatures we've found so far.
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
We check the prime signature of m and see that it's (). We increase c with 1 and set all elements up to 20 with prime signature () to 1. In the process, we adjust m. This gives:
[1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]. The least number we haven't checked is m = 2. 2 has prime signature (1). We increase c with 1 and set all elements up to 20 with prime signature (1) to 2. In the process, we adjust m. This gives:
[1, 2, 2, 0, 2, 0, 2, 0, 0, 0, 2, 0, 2, 0, 0, 0, 2, 0, 2, 0]
We check the prime signature of m = 4 and see that its prime signature is (2). We increase c with 1 and set all numbers up to 20 with prime signature (2) to 3. This gives:
[1, 2, 2, 3, 2, 0, 2, 0, 3, 0, 2, 0, 2, 0, 0, 0, 2, 0, 2, 0]
Similarily, after m = 6, we get
[1, 2, 2, 3, 2, 4, 2, 0, 3, 4, 2, 0, 2, 4, 4, 0, 2, 0, 2, 0], after m = 8 we get:
[1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 0, 2, 4, 4, 0, 2, 0, 2, 0], after m = 12 we get:
[1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 6, 2, 4, 4, 0, 2, 6, 2, 0], after m = 16 we get:
[1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 6, 2, 4, 4, 7, 2, 6, 2, 0], after m = 20 we get:
[1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 6, 2, 4, 4, 7, 2, 6, 2, 8]. Now, m > 20 so we stop. (End)
The above method is inefficient, because the step "set all elements a(n) up to n = Nmax with prime signature s(n) = S[c] to c" requires factoring all integers up to Nmax (or at least comparing their signature, once computed, with S[c]) again and again. It is much more efficient to run only once over each m = 1..Nmax, compute its prime signature s(m), add it to an ordered list in case it did not occur earlier, together with its "rank" (= new size of the list), and assign that rank to a(m). The list of prime signatures is much shorter than [1..Nmax]. One can also use m'(m) := the smallest n with the prime signature of m (which is faster to compute than to search for the signature) as representative for s(m), and set a(m) := a(m'(m)). Then it is sufficient to have just one counter (number of prime signatures seen so far) as auxiliary variable, in addition to the sequence to be computed. - _M. F. Hasler_, Jul 18 2019
		

Crossrefs

Cf. A025487, A046523, A064839 (ordinal transform of this sequence), A181819, and arrays A095904, A179216.
Sequences that are unions of finite number (>= 2) of equivalence classes determined by the values that this sequence obtains (i.e., sequences mentioned in David A. Corneth's May 12 2017 formula): A001358 (A001248 U A006881, values 3 & 4), A007422 (values 1, 4, 5), A007964 (2, 3, 4, 5), A014612 (5, 6, 9), A030513 (4, 5), A037143 (1, 2, 3, 4), A037144 (1, 2, 3, 4, 5, 6, 9), A080258 (6, 7), A084116 (2, 4, 5), A167171 (2, 4), A217856 (6, 9).
Cf. also A077462, A305897 (stricter variants, with finer partitioning) and A254524, A286603, A286605, A286610, A286619, A286621, A286622, A286626, A286378 for other similarly constructed sequences.

Programs

  • Maple
    A101296 := proc(n)
        local a046523, a;
        a046523 := A046523(n) ;
        for a from 1 do
            if A025487(a) = a046523 then
                return a;
            elif A025487(a) > a046523 then
                return -1 ;
            end if;
        end do:
    end proc: # R. J. Mathar, May 26 2017
  • Mathematica
    With[{nn = 120}, Function[s, Table[Position[Keys@s, k_ /; MemberQ[k, n]][[1, 1]], {n, nn}]]@ Map[#1 -> #2 & @@ # &, Transpose@ {Values@ #, Keys@ #}] &@ PositionIndex@ Table[Times @@ MapIndexed[Prime[First@ #2]^#1 &, Sort[FactorInteger[n][[All, -1]], Greater]] - Boole[n == 1], {n, nn}] ] (* Michael De Vlieger, May 12 2017, Version 10 *)
  • PARI
    find(ps, vps) = {for (k=1, #vps, if (vps[k] == ps, return(k)););}
    lisps(nn) = {vps = []; for (n=1, nn, ps = vecsort(factor(n)[,2]); ips = find(ps, vps); if (! ips, vps = concat(vps, ps); ips = #vps); print1(ips, ", "););} \\ Michel Marcus, Nov 15 2015; edited by M. F. Hasler, Jul 16 2019
    
  • PARI
    rgs_transform(invec) = { my(occurrences = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(occurrences,invec[i]), my(pp = mapget(occurrences, invec[i])); outvec[i] = outvec[pp] , mapput(occurrences,invec[i],i); outvec[i] = u; u++ )); outvec; };
    write_to_bfile(start_offset,vec,bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }
    write_to_bfile(1,rgs_transform(vector(100000,n,A046523(n))),"b101296.txt");
    \\ Antti Karttunen, May 12 2017

Formula

A025487(a(n)) = A046523(n).
Indices of records give A025487. - Michel Marcus, Nov 16 2015
From David A. Corneth, May 12 2017: (Start) [Corresponding characteristic function in brackets]
a(A000012(n)) = 1 (sig.: ()). [A063524]
a(A000040(n)) = 2 (sig.: (1)). [A010051]
a(A001248(n)) = 3 (sig.: (2)). [A302048]
a(A006881(n)) = 4 (sig.: (1,1)). [A280710]
a(A030078(n)) = 5 (sig.: (3)).
a(A054753(n)) = 6 (sig.: (1,2)). [A353472]
a(A030514(n)) = 7 (sig.: (4)).
a(A065036(n)) = 8 (sig.: (1,3)).
a(A007304(n)) = 9 (sig.: (1,1,1)). [A354926]
a(A050997(n)) = 10 (sig.: (5)).
a(A085986(n)) = 11 (sig.: (2,2)).
a(A178739(n)) = 12 (sig.: (1,4)).
a(A085987(n)) = 13 (sig.: (1,1,2)).
a(A030516(n)) = 14 (sig.: (6)).
a(A143610(n)) = 15 (sig.: (2,3)).
a(A178740(n)) = 16 (sig.: (1,5)).
a(A189975(n)) = 17 (sig.: (1,1,3)).
a(A092759(n)) = 18 (sig.: (7)).
a(A189988(n)) = 19 (sig.: (2,4)).
a(A179643(n)) = 20 (sig.: (1,2,2)).
a(A189987(n)) = 21 (sig.: (1,6)).
a(A046386(n)) = 22 (sig.: (1,1,1,1)).
a(A162142(n)) = 23 (sig.: (2,2,2)).
a(A179644(n)) = 24 (sig.: (1,1,4)).
a(A179645(n)) = 25 (sig.: (8)).
a(A179646(n)) = 26 (sig.: (2,5)).
a(A163569(n)) = 27 (sig.: (1,2,3)).
a(A179664(n)) = 28 (sig.: (1,7)).
a(A189982(n)) = 29 (sig.: (1,1,1,2)).
a(A179666(n)) = 30 (sig.: (3,4)).
a(A179667(n)) = 31 (sig.: (1,1,5)).
a(A179665(n)) = 32 (sig.: (9)).
a(A189990(n)) = 33 (sig.: (2,6)).
a(A179669(n)) = 34 (sig.: (1,2,4)).
a(A179668(n)) = 35 (sig.: (1,8)).
a(A179670(n)) = 36 (sig.: (1,1,1,3)).
a(A179671(n)) = 37 (sig.: (3,5)).
a(A162143(n)) = 38 (sig.: (2,2,2)).
a(A179672(n)) = 39 (sig.: (1,1,6)).
a(A030629(n)) = 40 (sig.: (10)).
a(A179688(n)) = 41 (sig.: (1,3,3)).
a(A179689(n)) = 42 (sig.: (2,7)).
a(A179690(n)) = 43 (sig.: (1,1,2,2)).
a(A189991(n)) = 44 (sig.: (4,4)).
a(A179691(n)) = 45 (sig.: (1,2,5)).
a(A179692(n)) = 46 (sig.: (1,9)).
a(A179693(n)) = 47 (sig.: (1,1,1,4)).
a(A179694(n)) = 48 (sig.: (3,6)).
a(A179695(n)) = 49 (sig.: (2,2,3)).
a(A179696(n)) = 50 (sig.: (1,1,7)).
(End)

Extensions

Data section extended to 120 terms by Antti Karttunen, May 12 2017
Minor edits/corrections by M. F. Hasler, Jul 18 2019

A052213 Numbers k with prime signature(k) = prime signature(k+1).

Original entry on oeis.org

2, 14, 21, 33, 34, 38, 44, 57, 75, 85, 86, 93, 94, 98, 116, 118, 122, 133, 135, 141, 142, 145, 147, 158, 171, 177, 201, 202, 205, 213, 214, 217, 218, 230, 244, 253, 285, 296, 298, 301, 302, 326, 332, 334, 375, 381, 387, 393, 394, 429, 434, 445, 446, 453, 481
Offset: 1

Views

Author

Erich Friedman, Jan 29 2000

Keywords

Comments

This sequence is infinite, see A189982 and Theorem 4 in Goldston-Graham-Pintz-Yıldırım. - Charles R Greathouse IV, Jul 17 2015
This is a subsequence of A005237, hence a(n) >> n sqrt(log log n) by the Erdős-Pomerance-Sárközy result cited there. - Charles R Greathouse IV, Jul 17 2015
Sequence is not the same as A280074, first deviation is at a(212): a(212) = 2041, A280074(212) = 2024. Number 2024 is the smallest number n such that A007425(n) = A007425(n+1) with different prime signatures of numbers n and n+1 (2024 = 2^3 * 11 * 23, 2025 = 3^4 * 5^2; A007425(2024) = A007425(2025) = 90). Conjecture: also numbers n such that Product_{d|n} tau(d) = Product_{d|n+1} tau(d). - Jaroslav Krizek, Dec 25 2016

Examples

			14 = 2^1*7^1 and 15 = 3^1*5^1, so both have prime signature {1,1}. Thus, 14 is a term.
		

Crossrefs

Programs

  • Mathematica
    pri[n_] := Sort[ Transpose[ FactorInteger[n]] [[2]]]; Select[ Range[ 2, 1000], pri[#] == pri[#+1] &]
    Rest[SequencePosition[Table[Sort[FactorInteger[n][[All,2]]],{n,500}],{x_,x_}][[All,1]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 28 2017 *)
  • PARI
    lista(nn) = for (n=1, nn-1, if (vecsort(factor(n)[,2]) == vecsort(factor(n+1)[,2]), print1(n, ", "));); \\ Michel Marcus, Jun 10 2015
    
  • Python
    from sympy import factorint
    def aupto(limit):
        alst, prevsig = [], [1]
        for k in range(3, limit+2):
            sig = sorted(factorint(k).values())
            if sig == prevsig: alst.append(k - 1)
            prevsig = sig
        return alst
    print(aupto(250)) # Michael S. Branicky, Sep 20 2021

A303555 Triangle read by rows: T(n,k) = 2^(n-k)*prime(k)#, 1 <= k <= n, where prime(k)# is the product of first k primes.

Original entry on oeis.org

2, 4, 6, 8, 12, 30, 16, 24, 60, 210, 32, 48, 120, 420, 2310, 64, 96, 240, 840, 4620, 30030, 128, 192, 480, 1680, 9240, 60060, 510510, 256, 384, 960, 3360, 18480, 120120, 1021020, 9699690, 512, 768, 1920, 6720, 36960, 240240, 2042040, 19399380, 223092870, 1024, 1536, 3840, 13440, 73920, 480480, 4084080, 38798760, 446185740, 6469693230
Offset: 1

Views

Author

Ilya Gutkovskiy, Apr 26 2018

Keywords

Comments

T(n,k) = the smallest number m having exactly n prime divisors counted with multiplicity and exactly k distinct prime divisors.

Examples

			T(5,4) = 420 = 2^2*3*5*7, hence 420 is the smallest number m such that bigomega(m) = 5 and omega(m) = 4 (see A189982).
Triangle begins:
    2;
    4,   6;
    8,  12,  30;
   16,  24,  60,  210;
   32,  48, 120,  420, 2310;
   64,  96, 240,  840, 4620, 30030;
  128, 192, 480, 1680, 9240, 60060, 510510;
  ...
		

Crossrefs

Programs

  • Mathematica
    Flatten[Table[2^(n - k) Product[Prime[j], {j, k}], {n, 10}, {k, n}]]

A179691 Numbers p^5*q^2*r where p, q, r are 3 distinct primes.

Original entry on oeis.org

1440, 2016, 2400, 3168, 3744, 4704, 4860, 4896, 5472, 5600, 6624, 6804, 7840, 8352, 8800, 8928, 10400, 10656, 10692, 11616, 11808, 12150, 12384, 12636, 13536, 13600, 15200, 15264, 16224, 16524, 16992, 17248, 17568, 18400, 18468, 19296, 19360
Offset: 1

Views

Author

Keywords

Crossrefs

Part of the list A178739 .. A179696 (and A030514 .. A030629, A189982 .. A189990 etc, cf. A101296). - M. F. Hasler, Jul 17 2019
Subsequence of A175746 (numbers with 36 divisors).

Programs

  • Mathematica
    f[n_]:=Sort[Last/@FactorInteger[n]]=={1,2,5}; Select[Range[20000], f]
  • PARI
    list(lim)=my(v=List(),t1,t2);forprime(p=2, (lim\12)^(1/5), t1=p^5;forprime(q=2, sqrt(lim\t1), if(p==q, next);t2=t1*q^2;forprime(r=2, lim\t2, if(p==r||q==r, next);listput(v,t2*r)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Jul 24 2011
    
  • Python
    from math import isqrt
    from sympy import primepi, primerange, integer_nthroot
    def A179691(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(x//(p**5*q**2)) for p in primerange(integer_nthroot(x,5)[0]+1) for q in primerange(isqrt(x//p**5)+1))+sum(primepi(integer_nthroot(x//p**5,3)[0]) for p in primerange(integer_nthroot(x,5)[0]+1))+sum(primepi(isqrt(x//p**6)) for p in primerange(integer_nthroot(x,6)[0]+1))+sum(primepi(x//p**7) for p in primerange(integer_nthroot(x,7)[0]+1))-(primepi(integer_nthroot(x,8)[0])<<1)
        return bisection(f,n,n) # Chai Wah Wu, Mar 27 2025

Extensions

Name improved by M. F. Hasler, Jul 17 2019

A260143 Runs of consecutive integers with same prime signature.

Original entry on oeis.org

2, 3, 14, 15, 21, 22, 33, 34, 35, 38, 39, 44, 45, 57, 58, 75, 76, 85, 86, 87, 93, 94, 95, 98, 99, 116, 117, 118, 119, 122, 123, 133, 134, 135, 136, 141, 142, 143, 145, 146, 147, 148, 158, 159, 171, 172, 177, 178, 201, 202, 203, 205, 206, 213, 214, 215, 217, 218, 219, 230, 231, 244, 245
Offset: 1

Views

Author

Jean-François Alcover, Jul 17 2015

Keywords

Comments

This sequence is infinite, see A189982 and Theorem 4 in Goldston-Graham-Pintz-Yıldırım. - Charles R Greathouse IV, Jul 17 2015

Examples

			Runs begin:
(terms)         (prime signature)
{2, 3},         [1]
{14, 15},       [1,1]
{21, 22},       [1,1]
{33, 34, 35},   [1,1]
{38, 39},       [1,1]
{44, 45},       [1,2]
{57, 58},       [1,1]
{75, 76},       [1,2]
{85, 86, 87},   [1,1]
{93, 94, 95},   [1,1]
{98, 99},       [1,2]
...
		

Crossrefs

Main sequence is A052213.

Programs

  • Mathematica
    Split[Range[2,250], Sort[FactorInteger[#1][[All, 2]]] === Sort[FactorInteger[#2][[All, 2]]]&] // Select[#, Length[#] > 1&]& // Flatten
  • PARI
    is(n)=my(f=vecsort(factor(n)[,2])); f==vecsort(factor(n-1)[,2]) || f==vecsort(factor(n+1)[,2]) \\ Charles R Greathouse IV, Jul 17 2015
    
  • Python
    from sympy import factorint
    def aupto(limit):
        aset, prevsig = {2}, [1]
        for k in range(3, limit+2):
            sig = sorted(factorint(k).values())
            if sig == prevsig: aset.update([k - 1, k])
            prevsig = sig
        return sorted(aset)
    print(aupto(250)) # Michael S. Branicky, Sep 20 2021

A274362 Numbers n such that n and n+1 both have 24 divisors.

Original entry on oeis.org

5984, 11780, 20349, 22815, 24794, 26144, 27675, 29799, 31724, 33579, 33824, 34335, 34748, 36764, 37323, 37664, 38324, 38367, 38675, 38709, 40544, 41624, 42020, 44505, 44954, 47564, 47684, 48950, 50024, 51204, 52155, 52767, 53703, 53955, 54495, 55419
Offset: 1

Views

Author

Keywords

Comments

Goldston-Graham-Pintz-Yildirim prove that this sequence is infinite; in particular infinitely often a(k) = A189982(n) = A189982(n+1) - 1. In fact, their proof shows that at least one of the residue classes 355740n + 47480, 889350n + 118700, or 592900n + 79134 contains infinitely many terms of this sequence.

Crossrefs

Intersection of A005237 and A137487.

Programs

  • Mathematica
    Reap[For[k = 1, k < 56000, k++, If[DivisorSigma[0, k] == DivisorSigma[0, k + 1] == 24, Sow[k]]]][[2, 1]] (* Jean-François Alcover, Dec 16 2018 *)
  • PARI
    is(n)=numdiv(n)==24 && numdiv(n+1)==24

A381311 Numbers whose powerful part (A057521) is a power of a prime with an even exponent >= 2.

Original entry on oeis.org

4, 9, 12, 16, 18, 20, 25, 28, 44, 45, 48, 49, 50, 52, 60, 63, 64, 68, 75, 76, 80, 81, 84, 90, 92, 98, 99, 112, 116, 117, 121, 124, 126, 132, 140, 147, 148, 150, 153, 156, 162, 164, 169, 171, 172, 175, 176, 188, 192, 198, 204, 207, 208, 212, 220, 228, 234, 236
Offset: 1

Views

Author

Amiram Eldar, Feb 19 2025

Keywords

Comments

Numbers k whose largest unitary divisor that is a square, A350388(k), is a prime power (A246655), or equivalently, A350388(k) is in A056798 \ {1}.
Numbers having exactly one non-unitary prime factor and its multiplicity is even.
Numbers whose prime signature (A118914) is of the form {1, 1, ..., 2*m} with m >= 1, i.e., any number (including zero) of 1's and then a single even number.
The asymptotic density of this sequence is (1/zeta(2)) * Sum_{p prime} p/((p-1)*(p+1)^2) = 0.24200684327095676029... .

Crossrefs

Programs

  • Mathematica
    q[n_] := Module[{e = ReverseSort[FactorInteger[n][[;;,2]]]}, EvenQ[e[[1]]] && (Length[e] == 1 || e[[2]] == 1)]; Select[Range[1000],q]
  • PARI
    isok(k) = if(k == 1, 0, my(e = vecsort(factor(k)[, 2], , 4)); !(e[1] % 2) && (#e == 1 || e[2] == 1));
Showing 1-8 of 8 results.