|
Search: id:A069861
|
|
|
| A069861 |
|
Numbers n that divide the concatenation of next n numbers. |
|
+0
4
|
|
| 1, 2, 3, 5, 6, 9, 10, 11, 12, 15, 18, 20, 21, 22, 25, 27, 30, 33, 36, 39, 42, 44, 45, 50, 54, 56, 60, 68, 72, 75, 90, 98, 100, 104, 108, 110, 111, 114, 120, 125, 126, 130, 132, 135, 140, 148, 150, 154, 155, 156, 162, 168, 180, 182, 185, 196, 198, 200, 205, 210, 216
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
9 divides 101112131415161718 hence is a member.
|
|
MATHEMATICA
|
f[n_] := Block[{j = 0, k = n + 1}, While[k < 2n + 1, j = ToExpression[ StringJoin[ ToString[j], ToString[k]]]; k++ ]; j]; Select[ Range[300], IntegerQ[ f[ # ] / # ] & ]
|
|
CROSSREFS
|
Cf. A069860, A069862.
Sequence in context: A036697 A131292 A069880 this_sequence A047449 A162923 A107040
Adjacent sequences: A069858 A069859 A069860 this_sequence A069862 A069863 A069864
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 18 2002
|
|
EXTENSIONS
|
Edited, corrected and extended by Robert G. Wilson v
|
|
|
Search completed in 0.002 seconds
|
