The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A330751

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

Number of values of k, 1 <= k <= n, with A319626(k) = A319626(n), where A319626(n) gives the numerator of rational valued primorial deflation of n.
(history; published version)

#9 by Susanna Cuyler at Mon Dec 30 20:08:59 EST 2019

STATUS

proposed

approved

#8 by Antti Karttunen at Mon Dec 30 16:59:00 EST 2019

STATUS

editing

proposed

#7 by Antti Karttunen at Mon Dec 30 16:35:39 EST 2019

NAME

Number of values of k, 1 <= k <= n, with A319626(k) = A319626(n), where A319626(n) gives the numerator of rational valued primorial deflation of n.

#6 by Antti Karttunen at Mon Dec 30 16:34:55 EST 2019

NAME

Ordinal transform of A319626. Number of values of k, 1 <= k <= n, with A319626(k) = A319626(n), where A319626(n) gives the numerator of primorial deflation of n.

COMMENTS

Ordinal transform of A319626.

#5 by Antti Karttunen at Mon Dec 30 16:32:03 EST 2019

NAME

Ordinal transform of A319626. Number of values of k, 1 <= k <= n, with A319626(k) = A319626(n), where

#4 by Antti Karttunen at Mon Dec 30 06:53:19 EST 2019

CROSSREFS

Cf. A064989, A319626, A330750, A330752.

#3 by Antti Karttunen at Mon Dec 30 06:44:30 EST 2019

LINKS

Antti Karttunen, <a href="/A330751/b330751.txt">Table of n, a(n) for n = 1..65537</a>

#2 by Antti Karttunen at Mon Dec 30 06:34:36 EST 2019

NAME

allocated for Antti KarttunenOrdinal transform of A319626.

DATA

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 3

OFFSET

1,6

PROG

(PARI)

up_to = 65537;

ordinal_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), pt); for(i=1, length(invec), if(mapisdefined(om, invec[i]), pt = mapget(om, invec[i]), pt = 0); outvec[i] = (1+pt); mapput(om, invec[i], (1+pt))); outvec; };

A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};

A319626(n) = (n / gcd(n, A064989(n)));

v330751 = ordinal_transform(vector(up_to, n, A319626(n)));

A330751(n) = v330751[n];

CROSSREFS

Cf. A319626, A330750.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Dec 30 2019

STATUS

approved

editing

#1 by Antti Karttunen at Sun Dec 29 10:35:25 EST 2019

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved