A076654 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A076654

Smallest natural number not a multiple of 10, not occurring earlier and starting with the end of the previous term.

1, 11, 12, 2, 21, 13, 3, 31, 14, 4, 41, 15, 5, 51, 16, 6, 61, 17, 7, 71, 18, 8, 81, 19, 9, 91, 101, 102, 22, 23, 32, 24, 42, 25, 52, 26, 62, 27, 72, 28, 82, 29, 92, 201, 103, 33, 34, 43, 35, 53, 36, 63, 37, 73, 38, 83, 39, 93, 301, 104, 44, 45, 54, 46, 64, 47, 74, 48, 84, 49, 94

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..8936, all terms < 10000

FORMULA

A000030(a(n+1)) = A010879(a(n)). - Reinhard Zumkeller, Aug 15 2015

MAPLE

startsWith := proc(n, dig) local nshft ; nshft := n ; while nshft >= 10 do nshft := floor(nshft/10) ; od ; if dig = nshft then RETURN(true) ; else RETURN(false) ; fi ; end: A076654 := proc(nmax) local candid, a; a := [1] ; while nops(a) < nmax do candid := 2 ; while not startsWith(candid, op(-1, a) mod 10) or candid mod 10 = 0 or candid in a do candid := candid+1 ; od ; a := [op(a), candid] ; od ; RETURN(a) ; end: a := A076654(200) : for n from 1 to nops(a) do printf("%d, ", op(n, a)) ; od ; # R. J. Mathar, Nov 12 2006

PROG

(Haskell)

import Data.List (delete)

a076654 n = a076654_list !! (n-1)

a076654_list = f a067251_list 1 where

f xs z = g xs where

g (y:ys) = if a000030 y == mod z 10 then y : f (delete y xs) y else g ys

-- Reinhard Zumkeller, Aug 15 2015

CROSSREFS

Cf. A076652, A076653.

Cf. A000030, A010879, A067251.

Sequence in context: A186433 A342076 A329127 * A264811 A352389 A020510