The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A276154 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A276154

a(n) = Shift primorial base representation (A049345) of n left by one digit (append one zero to the right, then convert back to decimal).
(history; published version)

#28 by N. J. A. Sloane at Thu Mar 18 23:39:41 EDT 2021

STATUS

proposed

approved

#27 by Antti Karttunen at Mon Mar 15 05:58:45 EDT 2021

STATUS

editing

proposed

#26 by Antti Karttunen at Mon Mar 15 05:55:14 EDT 2021

FORMULA

a(n) = A276085(A003961(A276086(n))). - Antti Karttunen, Mar 15 2021

PROG

(PARI) A276154(n) = A276085(A003961(A276086(n))); \\ Antti Karttunen, Mar 15 2021

(PARI)

A276151(n) = { my(s=1); forprime(p=2, , if(n%p, return(n-s), s *= p)); };

A276152(n) = { my(s=1); forprime(p=2, , if(n%p, return(s*p), s *= p)); };

A276154(n) = if(!n, n, (A276152(n) + A276154(A276151(n)))); \\ Antti Karttunen, Mar 15 2021

CROSSREFS

Cf. A002110, A003961, A049345, A276085, A276086, A276151, A276152, A286629 [= a(A061720(n-1))], A324384 [= gcd(n, a(n))], A323879, A328770 (a subsequence).

STATUS

approved

editing

Discussion

Mon Mar 15

05:58

Antti Karttunen: Sorry, forgot the new formula & PARI-programs yesterday.

#25 by Susanna Cuyler at Sun Mar 14 18:43:19 EDT 2021

STATUS

reviewed

approved

#24 by Michel Marcus at Sun Mar 14 16:04:45 EDT 2021

STATUS

proposed

reviewed

#23 by Antti Karttunen at Sun Mar 14 07:56:39 EDT 2021

STATUS

editing

proposed

#22 by Antti Karttunen at Sun Mar 14 07:56:34 EDT 2021

CROSSREFS

Dispersion array (& and its transpose): A276943, A276945, with primorials divided out: A286623, A286625.

STATUS

proposed

editing

#21 by Antti Karttunen at Sun Mar 14 07:55:08 EDT 2021

STATUS

editing

proposed

#20 by Antti Karttunen at Sun Mar 14 07:53:12 EDT 2021

CROSSREFS

Cf. A002110, A049345, A276151, A276152, A286629 [= a(A061720(n-1))], A324384 [= gcd(n, a(n))], A323879, A328770 (a subsequence).

[= gcd(n, a(n))],

A328770 (a subsequence).

Dispersion array (& transpose): A276943, A276945, with primorials divided out: A286623, A286625.

#19 by Antti Karttunen at Sun Mar 14 07:49:35 EDT 2021

CROSSREFS

Cf. A002110, A049345, A276151, A276152., A286629 [= a(A061720(n-1))], A324384

[= gcd(n, a(n))],

A328770 (a subsequence).

Cf. also A276156, A328461, A328464.

STATUS

approved

editing