OFFSET
1,1
COMMENTS
The first term is A006939(2) = 12.
First differs from A059404 in lacking 360, whose prime signature has three distinct parts.
Positions of 2's in A071625.
The asymptotic density of this sequence is (6/Pi^2) * Sum_{n>=2, n squarefree} 1/((n-1)*psi(n)) = 0.3611398..., where psi is the Dedekind psi function (A001615) (Sanna, 2020). - Amiram Eldar, Oct 18 2020
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Carlo Sanna, On the number of distinct exponents in the prime factorization of an integer, Proceedings - Mathematical Sciences, Indian Academy of Sciences, Vol. 130, No. 1 (2020), Article 27, alternative link.
EXAMPLE
3000 = 2^3 * 3^1 * 5^3 has two distinct exponents {1, 3}, so belongs to the sequence.
MAPLE
isA323055 := proc(n)
local eset;
eset := {};
for pf in ifactors(n)[2] do
eset := eset union {pf[2]} ;
end do:
simplify(nops(eset) = 2 ) ;
end proc:
for n from 12 to 1000 do
if isA323055(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Jan 09 2019
MATHEMATICA
Select[Range[100], Length[Union[Last/@FactorInteger[#]]]==2&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 03 2019
STATUS
approved