A115589 Multiply first digit by k, append result to sequence; multiply second digit by k, append result to sequence; multiply third digit by k, append result to sequence; etc. a(1)=1, k=7 case.

1, 7, 49, 28, 63, 14, 56, 42, 21, 7, 28, 35, 42, 28, 14, 14, 7, 49, 14, 56, 21, 35, 28, 14, 14, 56, 7, 28, 7, 28, 49, 28, 63, 7, 28, 35, 42, 14, 7, 21, 35, 14, 56, 7, 28, 7, 28, 35, 42, 49, 14, 56, 49, 14, 56, 28, 63, 14, 56, 42, 21, 49, 14, 56, 21, 35, 28, 14, 7, 28, 49, 14, 7, 21

Offset

1,2

Comments

All terms are evidently multiples of 7: 7, 14, ..., 63. Is the sequence periodic? Some repeating patterns are obvious, e.g., 63, 7, 28, 35, 42, but no cycle appears.

Links

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

Mathematica

ss=s={1}; Do[d=7s[[i]]; AppendTo[ss, d]; s=Flatten[{s, IntegerDigits[d]}], {i, 200}]; ss

Crossrefs

Cf. A115425.

Sequence in context: A192897 A317014 A330329 * A014390 A043070 A393982

Adjacent sequences: A115586 A115587 A115588 * A115590 A115591 A115592

Keyword

nonn,base

Author

Zak Seidov, Mar 09 2006

Status

approved