The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A351076 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A351076

Numbers k such that the maximal exponent in the prime factorization of A327860(k) is greater than or equal to A051903(k), the maximal exponent in the prime factorization of k.
(history; published version)

#5 by Michael De Vlieger at Wed Feb 02 21:23:21 EST 2022

STATUS

proposed

approved

#4 by Antti Karttunen at Wed Feb 02 05:08:49 EST 2022

STATUS

editing

proposed

#3 by Antti Karttunen at Tue Feb 01 15:37:54 EST 2022

COMMENTS

Numbers k for which A328391(k) >= A051903(k).

#2 by Antti Karttunen at Tue Feb 01 15:36:49 EST 2022

NAME

allocated for Antti KarttunenNumbers k such that the maximal exponent in the prime factorization of A327860(k) is greater than or equal to A051903(k), the maximal exponent in the prime factorization of k.

DATA

1, 3, 5, 7, 8, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 72, 73, 74, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 97, 98

OFFSET

1,2

LINKS

<a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

PROG

(PARI)

A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));

A327860(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); (s*m); };

isA351076(n) = (A051903(A327860(n)) >= A051903(n));

CROSSREFS

Cf. A003415, A276086, A051903, A327860, A328391, A351075 (complement), A351077 (the characteristic function).

Positions of nonnegative terms in A351074.

Cf. also A350076.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Feb 01 2022

STATUS

approved

editing

#1 by Antti Karttunen at Mon Jan 31 06:27:45 EST 2022

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved