A393047 Numbers such that the least prime not dividing their arithmetic derivative is 7.

36, 112, 116, 161, 209, 216, 221, 225, 236, 356, 371, 400, 513, 581, 592, 596, 611, 676, 700, 716, 731, 756, 779, 783, 791, 851, 868, 869, 899, 900, 952, 956, 1071, 1072, 1076, 1152, 1199, 1211, 1241, 1296, 1300, 1349, 1391, 1436, 1529, 1541, 1552, 1556, 1593, 1631, 1656, 1708, 1751, 1769, 1781, 1796, 1829, 1841

Offset

1,1

Comments

Numbers such that the largest primorial that divides their arithmetic derivative is A002110(3) = 30.

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Index entries for sequences related to primorial base.

Formula

{k such that A053669(A003415(k)) = 7}.

{k such that A276084(A003415(k)) = 3}.

Mathematica

a003415[n_]:=If[ Abs @ n < 2, 0, n Total[ #2 / #1 & @@@ FactorInteger[ Abs @ n]]]; a053669[1]=2; a053669[2]=3; a053669[k_]:=First[Select[Prime[Range[PrimePi[Last[Divisors[k]]]]], Divisible[k, #]==False&]]; okQ[k_]:=a053669[a003415[k]]==7; Select[Range[2, 1841], okQ]  (* James C. McMahon, Feb 03 2026 *)

Prog

(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A053669(n) = forprime(p=2, , if(n%p, return(p)));
is_A393047(n) = (n>1 && 7==A053669(A003415(n)));

Crossrefs

Positions of 3's in A393041.

Cf. A002110, A003415, A053669, A276084.

Cf. also A235991, A393043, A393045.

Sequence in context: A341046 A162940 A250426 * A176685 A199260 A033575

Adjacent sequences: A393044 A393045 A393046 * A393048 A393049 A393050

Keyword

nonn,easy

Author

Antti Karttunen, Feb 02 2026

Status

approved