A367590 -id:A367590 - cp's OEIS frontend

A238748 Numbers k such that each integer that appears in the prime signature of k appears an even number of times.

1, 6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 129, 133, 134, 141, 142, 143, 145, 146, 155, 158, 159, 161, 166, 177, 178, 183, 185, 187, 194

Offset: 1

Matthew Vandermast, May 08 2014

nonn

Values of n for which all numbers in row A238747(n) are even. Also, numbers n such that A000005(n^m) is a perfect square for all nonnegative integers m; numbers n such that A181819(n) is a perfect square; numbers n such that A182860(n) is odd.

The numbers of terms not exceeding 10^k, for k = 1, 2, ..., are 3, 33, 314, 3119, 31436, 315888, 3162042, 31626518, 316284320, 3162915907, ... . Apparently, the asymptotic density of this sequence exists and equals 0.3162... . - Amiram Eldar, Nov 28 2023

			The prime signature of 36 = 2^2 * 3^2 is {2,2}. One distinct integer (namely, 2) appears in the prime signature, and it appears an even number of times (2 times). Hence, 36 appears in the sequence.
The prime factorization of 1260 = 2^2 * 3^2 * 5^1 * 7^1. Exponent 2 occurs twice (an even number of times), as well as exponent 1, thus 1260 is included. It is also the first term k > 1 in this sequence for which A182850(k) = 4, not 3. - _Antti Karttunen_, Feb 06 2016

Antti Karttunen, Table of n, a(n) for n = 1..10000

Subsequences include A006881, A030229, A046386, A077448, A162142, A179690, A190108, A190465, A367590.
Subsequence of A000379, A028260, A063774 and A268390.
Cf. A000005, A181819, A182850, A182860, A238747.

q[n_] := n == 1 || AllTrue[Tally[FactorInteger[n][[;; , 2]]][[;; , 2]], EvenQ]; Select[Range[200], q] (* Amiram Eldar, Nov 28 2023 *)

is(n) = {my(e = factor(n)[, 2], m = #e); if(m%2, return(0)); e = vecsort(e); forstep(i = 1, m, 2, if(e[i] != e[i+1], return(0))); 1;} \\ Amiram Eldar, Nov 28 2023

(define A238748 (MATCHING-POS 1 1 (lambda (n) (square? (A181819 n)))))
(define (square? n) (not (zero? (A010052 n))))
;; Requires also MATCHING-POS macro from my IntSeq-library - Antti Karttunen, Feb 06 2016

A367589 Numbers with exactly two distinct prime factors, both appearing with different exponents.

Original entry on oeis.org

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 63, 68, 72, 75, 76, 80, 88, 92, 96, 98, 99, 104, 108, 112, 116, 117, 124, 135, 136, 144, 147, 148, 152, 153, 160, 162, 164, 171, 172, 175, 176, 184, 188, 189, 192, 200, 207, 208, 212, 224, 232, 236, 242, 244

Offset: 1

Gus Wiseman, Dec 01 2023

nonn

First differs from A177425 in lacking 360.
First differs from A182854 in lacking 360.
These are the Heinz numbers of the partitions counted by A182473.

			The terms together with their prime indices begin:
  12: {1,1,2}
  18: {1,2,2}
  20: {1,1,3}
  24: {1,1,1,2}
  28: {1,1,4}
  40: {1,1,1,3}
  44: {1,1,5}
  45: {2,2,3}
  48: {1,1,1,1,2}
  50: {1,3,3}
  52: {1,1,6}
  54: {1,2,2,2}
  56: {1,1,1,4}
  63: {2,2,4}
  68: {1,1,7}
  72: {1,1,1,2,2}

The case of any multiplicities is A007774, counts A002133.
These partitions are counted by A182473.
The case of equal exponents is A367590, counts A367588.
A000041 counts integer partitions, strict A000009.
A091602 counts partitions by greatest multiplicity, least A243978.
A098859 counts partitions with distinct multiplicities, ranks A130091.
A116608 counts partitions by number of distinct parts.
Cf. A071625, A072233, A072774, A109297, A367580.

Select[Range[100], PrimeNu[#]==2&&UnsameQ@@Last/@FactorInteger[#]&]

cp's OEIS Frontend

A238748 Numbers k such that each integer that appears in the prime signature of k appears an even number of times.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Scheme