|
|
A110740
|
|
Numbers k such that the concatenation 1,2,3,...,(k-1) is divisible by k.
|
|
5
|
|
|
1, 3, 9, 27, 69, 1053, 1599, 2511, 8167, 21371, 73323, 225681, 313401, 362703, 371321, 1896939, 2735667, 3426273, 3795093, 5433153, 302278903, 1371292077, 19755637749, 23560349643
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
3 divides 12, 9 divides 12345678.
|
|
MATHEMATICA
|
s = ""; Do[s = s <> ToString[n]; If[Mod[ToExpression[s], n + 1] == 0, Print[n + 1]], {n, 0, 5*10^6}] (* Ryan Propper, Aug 28 2005 *)
Select[Range[55*10^5], Divisible[FromDigits[Flatten[IntegerDigits/@Range[ #-1]]], #]&] (* Harvey P. Dale, Mar 28 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|