A328384 -id:A328384 - cp's OEIS frontend

A157037 Numbers with prime arithmetic derivative A003415.

6, 10, 22, 30, 34, 42, 58, 66, 70, 78, 82, 105, 114, 118, 130, 142, 154, 165, 174, 182, 202, 214, 222, 231, 238, 246, 255, 273, 274, 282, 285, 286, 298, 310, 318, 345, 357, 358, 366, 370, 382, 385, 390, 394, 399, 418, 430, 434, 442, 454, 455, 465, 474, 478

Offset: 1

Reinhard Zumkeller, Feb 22 2009

nonn

Equivalently, solutions to n'' = 1, since n' = 1 iff n is prime. Twice the lesser of the twin primes, 2*A001359 = A108605, are a subsequence. - M. F. Hasler, Apr 07 2015

All terms are squarefree, because if there would be a prime p whose square p^2 would divide n, then A003415(n) = (A003415(p^2) * (n/p^2)) + (p^2 * A003415(n/p^2)) = p*[(2 * (n/p^2)) + (p * A003415(n/p^2))], which certainly is not a prime. - Antti Karttunen, Oct 10 2019

			A003415(42) = A003415(2*3*7) = 2*3+3*7+7*2 = 41 = A000040(13), therefore 42 is a term.

Antti Karttunen, Table of n, a(n) for n = 1..10001 (first 1000 terms from Reinhard Zumkeller)

Cf. A003415, A010051, A038554, A192082, A192189, A192190,  A327978, A328233, A328240, A328384, A328385.
Cf. A189441 (primes produced by these numbers), A241859.
Cf. A192192, A328239 (numbers whose 2nd and numbers whose 3rd arithmetic derivative is prime).
Cf. A108605, A256673 (subsequences).
Subsequence of following sequences: A005117, A099308, A235991, A328234 (A328393), A328244, A328321.

a157037 n = a157037_list !! (n-1)
a157037_list = filter ((== 1) . a010051' . a003415) [1..]
-- Reinhard Zumkeller, Apr 08 2015

dn[0] = 0; dn[1] = 0; dn[n_?Negative] := -dn[-n]; dn[n_] := Module[{f = Transpose[FactorInteger[n]]}, If[PrimeQ[n], 1, Total[n*f[[2]]/f[[1]]]]]; Select[Range[500], dn[dn[#]] == 1 &] (* T. D. Noe, Mar 07 2013 *)

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
isA157037(n) = isprime(A003415(n)); \\ Antti Karttunen, Oct 19 2019

from itertools import count, islice
from sympy import isprime, factorint
def A157037_gen(): # generator of terms
    return filter(lambda n:isprime(sum(n*e//p for p,e in factorint(n).items())), count(2))
A157037_list = list(islice(A157037_gen(),20)) # Chai Wah Wu, Jun 23 2022

A010051(A003415(a(n))) = 1; A068346(a(n)) = 1; A099306(a(n)) = 0.

A003415(a(n)) = A328385(a(n)) = A241859(n); A327969(a(n)) = 3. - Antti Karttunen, Oct 19 2019

A328383 a(n) gives the number of iterations of x -> A003415(x) needed to reach the first number which is either a divisor or multiple of n, but not both at the same time. If no such number can ever be reached, a(n) is 0 (when either n is of the form p^p, or if the iteration would never stop). When the number reached is a divisor of n, a(n) is -1 * iteration count.

Original entry on oeis.org

-1, -1, 0, -1, -2, -1, 2, -3, -2, -1, 9, -1, -4, 23, 1, -1, -4, -1, 5, -2, -2, -1, 2, -3, 24, 0, 18, -1, -2, -1, 6, -5, -2, 85, 7, -1, -4, 21, 10, -1, -2, -1, 35, 53, -4, -1, 2, -5, 44, 18, 34, -1, 2, 21, 4, -3, -2, -1, 16, -1, -6, 21, 1, -5, -2, -1, 7, 85, -2, -1, 4, -1, 23, 55, 5, -4, -2, -1, 4, 9, -2, -1, 42, -3, 42

Offset: 2

Antti Karttunen, Oct 15 2019

The absolute value of a(n) tells how many columns right from the leftmost column in array A258651 one needs to go at row n, before one (again) finds either a divisor or a multiple of n, with 0's reserved for cases like 4 and 27 where the same value continues forever. If one finds a divisor before a multiple, then the value of a(n) will be negative, otherwise it will be positive.

Question: What is the value of a(91) ?

			For n = 6, its arithmetic derivative A003415(6) = 5 is neither its divisor nor its multiple, but the second arithmetic derivative A003415(5) = 1 is its divisor, thus a(6) = -2.
For n = 8, its arithmetic derivative A003415(8) = 12 is neither its divisor nor its multiple, but the second arithmetic derivative A003415(12) = 16 is its multiple, thus a(8) = +2.
Numbers reached for n=2..28 (with positions of the form p^p are filled with the same p^p): 1, 1, 4, 1, 1, 1, 16, 1, 1, 1, 8592, 1, 1, 410267320320, 32, 1, 1, 1, 240, 7, 1, 1, 48, 1, 410267320320, 27, 9541095424. For example, we have a(12) = 9 and the 9th arithmetic derivative of 12 is A003415^(9)(12) = 8592 = 716*12.

Antti Karttunen, Table of n, a(n) for n = 2..90

Cf. A003415, A258651, A328235, A328236.
Cf. A051674 (indices of zeros provided for all n >= 2 either a divisor or multiple can be found).
Cf. A256750, A328248, A328384 for similar counts.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A328383(n) = { my(u=A003415(n),k=1); if(u==n,return(0)); while((n%u) && (u%n), k++; u = A003415(u)); if(u%n,-k,k); };

a(A000040(n)) = -1.

a(A051674(n)) = 0.

A328385 If n is of the form p^p, a(n) = n, otherwise a(n) is the first number found by iterating the map x -> A003415(x) that is different from n and either a prime, or whose degree (A051903) differs from the degree of n.

Original entry on oeis.org

0, 1, 1, 4, 1, 5, 1, 12, 6, 7, 1, 16, 1, 9, 8, 32, 1, 21, 1, 24, 7, 13, 1, 44, 10, 8, 27, 32, 1, 31, 1, 80, 9, 19, 12, 96, 1, 7, 16, 68, 1, 41, 1, 48, 39, 25, 1, 608, 14, 39, 20, 56, 1, 81, 16, 92, 13, 31, 1, 96, 1, 9, 51, 640, 18, 61, 1, 72, 8, 59, 1, 156, 1, 16, 55, 80, 18, 71, 1, 3424, 108, 43, 1, 128, 13, 45, 32, 140, 1, 123, 20, 96, 19

Offset: 1

Antti Karttunen, Oct 14 2019

nonn

			For n = 3, 3 is a prime, thus a(3) = 1.
For n = 4, A003415(4) = 4, thus as it is among the fixed points of A003415 and a(4) = 4.
For n = 8 = 2^3, its "degree" is A051903(33) = 3, but A003415(8) = 12 = 2^2 * 3, with degree 2, thus a(8) = 12.
For n = 21 = 3*7, A051903(21) = 1, the first derivative A003415(21) = 10 = 2*5 is of the same degree as A051903(10) = 1, but then continuing, we have A003415(10) = 7, which is a prime, thus a(21) = 7.
For n = 33 = 3*11, A051903(33) = 1, A003415(33) = 14 = 2*7, is of the same degree, but on the second iteration, A003415(14) = 9 = 3^2, with A051903(9) = 2, different from the initial degree, thus a(33) = 9.

Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Cf. A003415, A051674, A051903, A157037.
Cf. A328384 (the number of iterations needed to reach such a number).
Cf. also A327968, A327975, A327977, A328252, A328305, A328310, A328311, A328320, A328321.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
A328385(n) = { my(d=A051903(n), u=A003415(n)); while(u && (u!=n) && !isprime(u) && A051903(u)==d, n = u; u = A003415(u)); (u); };

a(1) = 0 [as here the degrees of 0 and 1 are considered different].
a(p) = 1 for all primes.
a(A051674(n)) = A051674(n).
a(A157037(n)) = A003415(A157037(n)), a prime.
a(A328252(n)) = A003415(A328252(n)), a squarefree number.
a(n) = A003415^(k)(n), when k = abs(A328384(n)). [Taking the abs(A328384(n))-th arithmetic derivative of n gives a(n)]

cp's OEIS Frontend

A157037 Numbers with prime arithmetic derivative A003415.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Python

Formula

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

A328385 If n is of the form p^p, a(n) = n, otherwise a(n) is the first number found by iterating the map x -> A003415(x) that is different from n and either a prime, or whose degree (A051903) differs from the degree of n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

Formula