The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A276093 The least significant nonzero digit in primorial base is replaced with zero: a(n) = n - A276094(n), a(0) = 0. 4
 0, 0, 0, 2, 0, 4, 0, 6, 6, 8, 6, 10, 0, 12, 12, 14, 12, 16, 0, 18, 18, 20, 18, 22, 0, 24, 24, 26, 24, 28, 0, 30, 30, 32, 30, 34, 30, 36, 36, 38, 36, 40, 30, 42, 42, 44, 42, 46, 30, 48, 48, 50, 48, 52, 30, 54, 54, 56, 54, 58, 0, 60, 60, 62, 60, 64, 60, 66, 66, 68, 66, 70, 60, 72, 72, 74, 72, 76, 60, 78, 78, 80, 78, 82, 60, 84, 84, 86, 84, 88, 0, 90 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,4 LINKS Antti Karttunen, Table of n, a(n) for n = 0..2310 FORMULA a(n) = n - A276094(n). EXAMPLE n   A049345  with the rightmost      converted back                 nonzero replaced by 0   to decimal = a(n) ---------------------------------------------------------    0       0             0                     0    1       1             0                     0    2      10            00                     0    3      11            10                     2    4      20            00                     0    5      21            20                     4    6     100           000                     0    7     101           100                     6    8     110           100                     6    9     111           110                     8   10     120           100                     6   11     121           120                    10   12     200           000                     0   13     201           200                    12   14     210           200                    12   15     211           210                    14   16     220           200                    12 MATHEMATICA nn = 91; b = MixedRadix[Reverse@ Prime@ Range@ PrimePi[nn + 1]]; FromDigits[#, b] & /@ Join[{{0}}, Table[Function[w, Join[Take[w, Length@ w - # - 1], ConstantArray[0, # + 1]] &@ Length@ TakeWhile[Reverse@ w, # == 0 &]]@ IntegerDigits[n, b], {n, nn}]] (* Version 10.2, or *) f[n_] := Block[{a = {{0, n}}}, Do[AppendTo[a, {First@ #, Last@ #} &@ QuotientRemainder[a[[-1, -1]], Times @@ Prime@ Range[# - i]]], {i, 0, #}] &@ NestWhile[# + 1 &, 0, Times @@ Prime@ Range[# + 1] <= n &]; Rest[a][[All, 1]]]; g[w_List] := Total[Times @@@ Transpose@ {Map[Times @@ # &, Prime@ Range@ Range[0, Length@ w - 1]], Reverse@ w}]; g /@ Join[{{0}}, Table[Function[w, Join[Take[w, Length@ w - # - 1], ConstantArray[0, # + 1]] &@ Length@ TakeWhile[Reverse@ w, # == 0 &]]@ f@ n, {n, 91}]] (* Michael De Vlieger, Aug 30 2016 *) PROG (Scheme) (define (A276093 n) (- n (A276094 n))) CROSSREFS Cf. A276094, A276086. Sequence in context: A249744 A245075 A046666 * A176296 A194795 A131575 Adjacent sequences:  A276090 A276091 A276092 * A276094 A276095 A276096 KEYWORD nonn,base AUTHOR Antti Karttunen, Aug 22 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 31 07:38 EDT 2021. Contains 346369 sequences. (Running on oeis4.)