login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A076654 Smallest natural number not a multiple of 10, not occurring earlier and starting with the end of the previous term. 8
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

COMMENTS

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

LINKS

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

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: A265715 A178496 A186433 * A264811 A020510 A270036

Adjacent sequences:  A076651 A076652 A076653 * A076655 A076656 A076657

KEYWORD

base,nonn

AUTHOR

Amarnath Murthy, Oct 28 2002

EXTENSIONS

More terms from R. J. Mathar, Nov 12 2006

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 28 07:51 EDT 2017. Contains 284182 sequences.