A289284 Starting with a(1) = 1, a(n) = smallest nonnegative integer not yet in the sequence such that the last digit of a(n-1) plus the first digit of a(n) is equal to 6. The digit 0 is not allowed.

1, 5, 11, 51, 52, 4, 2, 41, 53, 3, 31, 54, 21, 55, 12, 42, 43, 32, 44, 22, 45, 13, 33, 34, 23, 35, 14, 24, 25, 15, 16

Offset

1,2

Comments

The number of terms of this finite sequence is the sixth central polygonal number, n = 31.

Links

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

Mathematica

Module[{a = {1}, k, d = 6}, TimeConstrained[Do[k = 2; While[Or[MemberQ[a, k], MemberQ[IntegerDigits@ k, 0], # != d] &[Mod[a[[n - 1]], 10] + First@IntegerDigits@ k], k++]; AppendTo[a, k], {n, 2, 100}], 2]; a] (* Michael De Vlieger, Jul 14 2017 *)

Crossrefs

Cf. A002061, A289283.

Sequence in context: A149520 A073415 A176832 * A149521 A149522 A149523

Adjacent sequences: A289281 A289282 A289283 * A289285 A289286 A289287

Keyword

nonn,base,fini,full

Author

Enrique Navarrete, Jul 01 2017

Status

approved