|
| |
| |
|
|
|
1, 4, 18, 33, 42, 44, 50, 55, 90, 98, 195, 288, 311, 395, 457, 521, 859, 891, 898, 1848, 1876, 2717, 3688, 3757, 3796, 4733, 5243, 5301, 5321, 6295, 6389, 6434, 6526, 6556, 6634, 6650, 6690, 7318, 7938, 8027, 9013, 9293, 9327, 9409, 9462, 9883, 10053
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
First differences are Pi's shadow. Never twice the same integer in sequence or first differences.
|
|
|
LINKS
|
Table of n, a(n) for n=1..47.
|
|
|
EXAMPLE
|
The first line hereunder is the sequence, the second line are the first differences:
1.4..18..33.42.44.50.55..90.98..195..288..311...
.3.14..15..9..2..6..5..35..8..97...93...23 <-- Pi shadow
(Pi=3.141592653589793238462643383279502884197169399...)
|
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := a[n] = Block[{c = RealDigits[Pi, 10, 300][[1]], k = 1, t = Table[a[i], {i, n - 1}]}, d = Drop[t, 1] - Drop[t, -1]; b = Drop[c, Length[ Flatten[ IntegerDigits /@ d]]]; e = Union[ Join[t, d]]; While[f = FromDigits[ Take[b, k]]; Position[e, f] != {} || b[[k + 1]] == 0, k++ ]; f + a[n - 1]]; Table[ a[n], {n, 47}] (* Robert G. Wilson v *)
|
|
|
CROSSREFS
|
Cf. A000796.
Sequence in context: A095823 A092116 A083969 * A124978 A031081 A009956
Adjacent sequences: A110618 A110619 A110620 * A110622 A110623 A110624
|
|
|
KEYWORD
|
easy,nonn,base
|
|
|
AUTHOR
|
Eric Angelini and Alexandre Wajnberg, Sep 14 2005
|
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v, Oct 10 2005
|
|
|
STATUS
|
approved
|
| |
|
|
