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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107128 Divide the even digits of n by 2!. 3
0, 1, 1, 3, 2, 5, 3, 7, 4, 9, 10, 11, 11, 13, 12, 15, 13, 17, 14, 19, 10, 11, 11, 13, 12, 15, 13, 17, 14, 19, 30, 31, 31, 33, 32, 35, 33, 37, 34, 39, 20, 21, 21, 23, 22, 25, 23, 27, 24, 29, 50, 51, 51, 53, 52, 55, 53, 57, 54, 59, 30, 31, 31, 33, 32, 35, 33, 37, 34, 39, 70, 71, 71 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

Differs from A026741 starting with 11-term term: A107128(11)=10, A026741(11)=5.

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

MATHEMATICA

A107128[n_]:=FromDigits[Map[If[Mod[ #, 2]==0, #/2, # ]&, IntegerDigits[n]]]

Table[FromDigits[If[EvenQ[#], #/2, #]&/@IntegerDigits[n]], {n, 0, 80}] (* Harvey P. Dale, Sep 03 2018 *)

PROG

(Haskell)

a107128 n = if n == 0 then 0 else 10 * (a107128 n') + m * d + (1 - m) * d'

            where (d', m) = divMod d 2

                  (n', d) = divMod n 10

-- Reinhard Zumkeller, Jan 14 2015

CROSSREFS

Cf. A026741.

Cf. A106747.

Sequence in context: A105658 A083242 A111618 * A086670 A075888 A075889

Adjacent sequences:  A107125 A107126 A107127 * A107129 A107130 A107131

KEYWORD

nonn,base,look

AUTHOR

Zak Seidov, May 12 2005

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 18 21:20 EST 2020. Contains 332028 sequences. (Running on oeis4.)