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

 

Logo

Annual Appeal: Today, Nov 11 2014, is the 4th anniversary of the launch of the new OEIS web site. 70,000 sequences have been added in these four years, all edited by volunteers. Please make a donation (tax deductible in the US) to help keep the OEIS running.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098670 Start with a(1) = 5. Construct slowest growing sequence such that the statement "the a(n)-th digit is a 2" is true for all n. 5
5, 6, 7, 8, 22, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The sequence goes 5, 6, 7, 8, 22, 220, 221, ..., 290, 2222, 22222, 222222, ... for 275 more digits, then for most of the rest of the sequence, a(n+1)=a(n)+1. Starting with a(1)=3 yields 3, 4, 22, 23, ..., 30, 32, 222, 2222, 2223,... for at least 2000 more digits. (The 222-th digit happens to be the initial digit of a(63)=2271.) Starting with a(1)=4 yields 4, 5, 6, 22, 23, ..., 30, 222, 2222, 2223, ... See A210416 for a variant without requirement of growth. - M. F. Hasler, Oct 08 2013

LINKS

Table of n, a(n) for n=1..56.

Index to the OEIS: Entries related to self-referencing sequences.

EXAMPLE

The 5th digit of the sequence is a "2", the 6th digit also, then the 7th, the 8th, the 22nd etc.

PROG

(PARI) { a=5; P=Set(); L=0; while(1, print1(a, ", "); P=setunion(P, Set([a])); L+=#Str(a); until(g, g=1; a++; s=Vec(Str(a)); for(i=1, #s, if(setsearch(P, L+i)&&s[i]!="2", g=0; break)); ); ) } [From Max Alekseyev]

CROSSREFS

Cf. A114134, A098645, A210414-A210423.

Sequence in context: A014097 A219331 A229862 * A081407 A205857 A196026

Adjacent sequences:  A098667 A098668 A098669 * A098671 A098672 A098673

KEYWORD

base,easy,nonn

AUTHOR

Eric Angelini, Oct 27 2004

EXTENSIONS

Edited and extended by Max Alekseyev, Feb 06 2010

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified December 20 10:32 EST 2014. Contains 252241 sequences.