|
%I #7 Dec 05 2013 19:55:18
%S 1,2,3,4,6,17,34,51,167,334,501,1667,3334,5001,14286,16667,33334,
%T 50001,166667,333334,500001,1666667,3333334,5000001,16666667,33333334,
%U 50000001,166666667,333333334,500000001,1666666667,3333333334
%N Numbers n that divide the concatenation of n+1 and n+2.
%F For k > 0, sequence contains (10^k+2)/2, (10^k+2)/3, (10^k+2)/6 and (10^(6k-1)+2)/7. The only other terms are 1 and 3. - _David Wasserman_, Aug 25 2005
%e 17 divides 1819 hence is a member.
%t Select[ Range[10^7], Mod[ FromDigits[ Join[ IntegerDigits[ # + 1], IntegerDigits[ # + 2]]], # ] == 0 & ]
%Y Cf. A069860, A069861, A069862, A069871, A088797, A088798.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Apr 18 2002
%E Edited and extended by _Robert G. Wilson v_, Apr 22 2002
%E More terms from _David Wasserman_, Aug 25 2005
|
