OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
EXAMPLE
4*16=64, 4*31=124, 4*41=164, 4*52=208, etc.
MATHEMATICA
Reap[Do[If[IntegerDigits[n][[ -1]]==IntegerDigits[4*n][[1]], Sow[n]], {n, 1000}]][[2, 1]]
Select[Range[100], Last[IntegerDigits[#]] == First[IntegerDigits[4 #]] &] (* G. C. Greubel, Jul 03 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Nov 16 2009
STATUS
approved