login
The OEIS is supported by the many generous donors 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. 9
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
Sequence in context: A186433 A342076 A329127 * A264811 A352389 A020510
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 15 05:28 EDT 2024. Contains 371667 sequences. (Running on oeis4.)