login
A091376
Numbers k with property that the number of prime factors of k (counted with repetition) equals the smallest prime factor of k.
6
4, 6, 10, 14, 22, 26, 27, 34, 38, 45, 46, 58, 62, 63, 74, 75, 82, 86, 94, 99, 105, 106, 117, 118, 122, 134, 142, 146, 147, 153, 158, 165, 166, 171, 178, 194, 195, 202, 206, 207, 214, 218, 226, 231, 254, 255, 261, 262, 273, 274, 278, 279, 285, 298, 302, 314
OFFSET
1,1
COMMENTS
A091371(a(n)) = 0: A001222(a(n))=A020639(a(n)).
Prime factors counted with multiplicity. - Harvey P. Dale, Nov 11 2012
LINKS
MATHEMATICA
pfQ[n_]:=Module[{fi=Transpose[FactorInteger[n]]}, fi[[1, 1]] == Total[Last[fi]]]; Rest[Select[Range[400], pfQ]] (* Harvey P. Dale, Nov 11 2012 *)
PROG
(Haskell)
a091376 n = a091376_list !! (n-1)
a091376_list = [x | x <- a002808_list, a001222 x == a020639 x]
-- Reinhard Zumkeller, Nov 11 2012
CROSSREFS
Cf. A002808.
Cf. A100484 (subsequence).
Sequence in context: A137860 A184335 A243428 * A363134 A100484 A076924
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 04 2004
EXTENSIONS
Definition edited by N. J. A. Sloane, Jan 21 2020
STATUS
approved