login
A086133
Numbers k such that the smallest prime factor of the arithmetic derivative of k equals that of k.
1
4, 8, 12, 16, 20, 24, 27, 28, 32, 36, 40, 44, 45, 48, 52, 56, 60, 63, 64, 68, 72, 76, 80, 84, 88, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 124, 128, 132, 136, 140, 144, 148, 152, 153, 156, 160, 164, 168, 171, 172, 175, 176, 180, 184, 188, 192, 196, 200, 204
OFFSET
1,1
LINKS
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n]}, f[[1, 1]] == FactorInteger[n * Plus @@ ((Last[#]/First[#]) & /@ f)][[1, 1]]]; Select[Range[2, 210], q] (* Amiram Eldar, Aug 11 2024 *)
CROSSREFS
Sequence in context: A367086 A285466 A274141 * A100716 A328251 A276079
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 23 2003
STATUS
approved