OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
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