The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A133903

a(n) = a(n-1) + A000005(n-1) if a(n-1) is not divisible by 3, otherwise a(n) = a(n-1)/3.
(history; published version)

#16 by Joerg Arndt at Tue Mar 22 03:12:09 EDT 2022

STATUS

reviewed

approved

#15 by Michel Marcus at Tue Mar 22 02:34:35 EDT 2022

STATUS

proposed

reviewed

#14 by Michael De Vlieger at Mon Mar 21 21:42:37 EDT 2022

STATUS

editing

proposed

#13 by Michael De Vlieger at Mon Mar 21 08:16:51 EDT 2022

LINKS

Michael De Vlieger, <a href="/A133903/b133903.txt">Table of n, a(n) for n = 1..10000</a>

MATHEMATICA

Nest[Append[#1, If[Divisible[Last[#1], 3], Last[#1]/3, Last[#1] + DivisorSigma[0, #2]]] & @@ {#, Length[#]} &, {1}, 77] (* Michael De Vlieger, Mar 21 2022 *)

STATUS

approved

editing

#12 by Michael De Vlieger at Sun Mar 20 18:24:20 EDT 2022

STATUS

reviewed

approved

#11 by Michel Marcus at Sun Mar 20 17:36:05 EDT 2022

STATUS

proposed

reviewed

#10 by Jon E. Schoenfield at Sun Mar 20 16:20:01 EDT 2022

STATUS

editing

proposed

#9 by Jon E. Schoenfield at Sun Mar 20 16:19:54 EDT 2022

NAME

a(n) = a(n-1) + A000005(n-1) if a(n-1) is not divisible by 3, otherwise a(n) = a(n-1)/3.

STATUS

approved

editing

#8 by Peter Luschny at Sat Nov 28 13:18:05 EST 2020

STATUS

reviewed

approved

#7 by Joerg Arndt at Sat Nov 28 08:44:42 EST 2020

STATUS

proposed

reviewed

Discussion

Sat Nov 28

08:45

Joerg Arndt: could xref A134586