|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
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]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|