|
|
A091791
|
|
Least multiple of n such that the n-th partial concatenation is a multiple of the n-th odd number (i.e., 2n-1).
|
|
2
|
|
|
1, 2, 15, 20, 25, 6, 91, 80, 99, 170, 88, 60, 325, 350, 225, 512, 646, 540, 114, 60, 672, 704, 460, 696, 675, 78, 135, 560, 493, 2010, 589, 992, 2145, 1768, 35, 900, 2072, 1900, 3159, 2680
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
3 divides 12, 5 divides 1215, 7 divides 121520 etc.
|
|
MAPLE
|
A055642 := proc(n) ilog10(n)+ 1; end: Lcat := proc(L) local resul, i ; resul := op(1, L) ; for i from 2 to nops(L) do resul := resul*10^A055642(op(i, L))+op(i, L) ; od ; RETURN(resul) ; end: A091791 := proc(nmax) local a, k, n ; a := [1] ; for n from 2 to nmax do k :=1 ; while Lcat([op(a), k*n]) mod (2*n-1) <> 0 do k := k+1 ; od ; a := [op(a), k*n] ; od; a ; end: A091791(40); # R. J. Mathar, Jul 20 2007
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|