A168000 Numbers n with property that first digit of 6*n = last digit of n.

21, 31, 42, 53, 63, 74, 85, 95, 106, 116, 117, 127, 138, 148, 159, 171, 181, 191, 201, 211, 221, 231, 241, 251, 261, 271, 281, 291, 301, 311, 321, 331, 342, 352, 362, 372, 382, 392, 402, 412, 422, 432, 442, 452, 462, 472, 482, 492, 503, 513, 523, 533, 543

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Example

6*21=126, 6*31=186, 6*42=252, 6*53=318, etc.

Mathematica

Reap[Do[If[IntegerDigits[n][[ -1]]==IntegerDigits[6*n][[1]], Sow[n]], {n, 1000}]][[2, 1]]
Select[Range[600], Mod[#, 10]==First[IntegerDigits[6#]]&] (* Harvey P. Dale, Jan 09 2014 *)

Crossrefs

Cf. A167994, A167996, A167997, A167998.

Sequence in context: A261322 A123846 A336383 * A031889 A034101 A034111

Adjacent sequences: A167997 A167998 A167999 * A168001 A168002 A168003

Keyword

base,nonn

Author

Zak Seidov, Nov 16 2009

Status

approved