

A144338


Squarefree numbers > 1.


14



2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 105, 106, 107, 109, 110, 111, 113
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Nontrivial products of distinct primes. Sequence A005117 without the initial 1.
Also numbers n for which the following equation holds : (2^r)sigma_0(p(1)*...*p(r)) = 0. This sequence describes the way RMS numbers (A140480) are grouped. In general if n = p(1)^alpha(1) *...* p(s)^alpha(s), alpha(i)>=1, we have the equation [2^sum_i=1..s{alpha(i)}]  sigma_0(p(1)^alpha(1) *...* p(s)^alpha(s)) = T. In terms of OEIS sequences the equation is : 2^(A001055(n))  (A000005(n)) = T. This sequence has T=0, n=p(1)*...*p(r). If T=(2^k)(k+1) then n=p^k. T splits the set of integers into subsets according to the form of prime factorization of the number n.
These can be computed with a modified Sieve of Eratosthenes: [1] start at n=2, [2] if (n is crossed out an even number of times) then (append n to the sequence and cross out all multiples of n), [3] set n:=n+1 and go to step 2; compare with the sieve for the complement of perfect powers in A007916.  Reinhard Zumkeller, Mar 19 2009
Numbers such that the harmonic mean of Omega(n) (A001222) and omega(n) (A001221) is a positive integer.  Wesley Ivan Hurt, Oct 13 2013


LINKS

Table of n, a(n) for n=1..70.
S. R. Finch, Kalmar's Composition Constant, CiteSeer (2003).
S. R. Finch, Kalmar's composition constant, Jun 05 2003. [Cached copy, with permission of the author]
A. M. Legendre, Diviseurs de la formule t^2  a*u^2, Essai sur la ThÃ©orie des Nombres An VI, Table III. See first column. [Paul Curtz, Apr 13 2019]
Eric Weisstein's World of Math, Ordered Factorization
Index entries for sequences generated by sieves


MAPLE

A144338:= n>`if`(numtheory[issqrfree](n) = true, n, NULL); seq(A144338(k), k=2..113); # Wesley Ivan Hurt, Oct 13 2013


MATHEMATICA

Select[Range[2, 120], SquareFreeQ] (* Harvey P. Dale, May 07 2012 *)


PROG

(PARI) is(n)=issquarefree(n) && n>1 \\ Charles R Greathouse IV, Nov 05 2017


CROSSREFS

Cf. A001055, A140480, A000005.
Cf. A076259 (first differences, without the first 1).
Sequence in context: A336223 A076144 A005117 * A077377 A076786 A298540
Adjacent sequences: A144335 A144336 A144337 * A144339 A144340 A144341


KEYWORD

easy,nonn


AUTHOR

Ctibor O. Zizka, Sep 18 2008


EXTENSIONS

Corrected Anumber typo.  R. J. Mathar, Feb 21 2009
Minor edits from Charles R Greathouse IV, Mar 18 2010


STATUS

approved



