OFFSET
1,2
EXAMPLE
The right concatenation of the first six even numbers is 24681012 and 6 divides this number. So 6 is a member of the sequence.
MAPLE
a := proc(n): if n=1 then RETURN(2) fi: 2*n+a(n-1)*10^(ceil(log[10](2*n+.01))) end: for n from 1 to 1000 do if a(n) mod n = 0 then printf(`%d, `, n) fi; od:
MATHEMATICA
concat[n_]:=FromDigits[Flatten[IntegerDigits/@Range[2, 2n, 2]]]; Select[ Range[700], Divisible[concat[#], #]&] (* Harvey P. Dale, Nov 02 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 19 2002
EXTENSIONS
Edited and extended by James A. Sellers, Feb 20, 2002
Offset corrected by Sean A. Irvine, Jan 25 2024
STATUS
approved