|
| |
|
|
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.
|
|
2
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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. A098645.
Sequence in context: A171405 A047575 A014097 * A081407 A205857 A196026
Adjacent sequences: A098667 A098668 A098669 * A098671 A098672 A098673
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Eric Angelini (eric.angelini(AT)kntv.be), Oct 27 2004
|
|
|
EXTENSIONS
| Edited and extended by Max Alekseyev (maxale(AT)gmail.com), Feb 06 2010
|
| |
|
|
