login
A168001
Numbers n with property that first digit of 7*n = last digit of n.
3
21, 32, 42, 43, 53, 64, 75, 85, 86, 96, 107, 118, 128, 129, 139, 151, 161, 171, 181, 191, 201, 211, 221, 231, 241, 251, 261, 271, 281, 292, 302, 312, 322, 332, 342, 352, 362, 372, 382, 392, 402, 412, 422, 433, 443, 453, 463, 473, 483, 493, 503, 513, 523, 533
OFFSET
1,1
LINKS
EXAMPLE
7*21=147, 7*32=224, 7*42=294, 7*43=301, etc.
MATHEMATICA
Reap[Do[If[IntegerDigits[n][[ -1]]==IntegerDigits[7*n][[1]], Sow[n]], {n, 1000}]][[2, 1]]
Select[Range[100], Last[IntegerDigits[#]] == First[IntegerDigits[7 #]] &] (* G. C. Greubel, Jul 03 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Nov 16 2009
STATUS
approved