|
%I #6 Jul 05 2016 02:47:50
%S 16,31,41,52,62,72,83,93,104,114,124,125,135,145,156,166,177,187,197,
%T 208,218,229,239,249,251,261,271,281,291,301,311,321,331,341,351,361,
%U 371,381,391,401,411,421,431,441,451,461,471,481,491,502,512,522,532
%N Numbers n with property that first digit of 4*n = last digit of n.
%H G. C. Greubel, <a href="/A167997/b167997.txt">Table of n, a(n) for n = 1..1000</a>
%e 4*16=64, 4*31=124, 4*41=164, 4*52=208, etc.
%t Reap[Do[If[IntegerDigits[n][[ -1]]==IntegerDigits[4*n][[1]],Sow[n]],{n,1000}]][[2,1]]
%t Select[Range[100], Last[IntegerDigits[#]] == First[IntegerDigits[4 #]] &] (* _G. C. Greubel_, Jul 03 2016 *)
%Y Cf. A167994, A167996.
%K base,nonn
%O 1,1
%A _Zak Seidov_, Nov 16 2009
|
