|
|
A084127
|
|
Prime factor >= other prime factor of n-th semiprime.
|
|
43
|
|
|
2, 3, 3, 5, 7, 5, 7, 11, 5, 13, 11, 17, 7, 19, 13, 23, 7, 17, 11, 19, 29, 31, 13, 23, 37, 11, 41, 17, 43, 29, 13, 31, 47, 19, 53, 37, 23, 59, 17, 11, 61, 41, 43, 19, 67, 47, 71, 13, 29, 73, 31, 79, 53, 23, 83, 13, 59, 89, 61, 37, 17, 97, 67, 101, 29, 41, 103, 19, 71, 107, 43, 31
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Semiprime
|
|
FORMULA
|
|
|
MATHEMATICA
|
FactorInteger[#][[-1, 1]]& /@ Select[Range[1000], PrimeOmega[#] == 2&] (* Jean-François Alcover, Nov 17 2021 *)
|
|
PROG
|
(Haskell)
(PARI) lista(nn) = {for (n=2, nn, if (bigomega(n)==2, f = factor(n); print1(f[length(f~), 1], ", ")); ); } \\ Michel Marcus, Jun 05 2013
|
|
CROSSREFS
|
Cf. A001358 (the semiprimes), A084126 (lesser of the prime factors of the semiprimes).
Cf. A014673, A061299, A068318, A087718, A087794, A089994, A089995, A096932, A106550, A106554, A108542, A126663, A131284, A138510, A138511.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|