|
|
A164009
|
|
Zero together with row 9 of the array in A163280.
|
|
4
|
|
|
0, 19, 38, 51, 76, 75, 114, 105, 136, 162, 190, 209, 264, 273, 308, 345, 384, 425, 468, 513, 560, 609, 660, 713, 768, 825, 884, 945, 1008, 1073, 1140, 1209, 1280, 1353, 1428, 1505, 1584, 1665, 1748, 1833, 1920, 2009, 2100, 2193, 2288, 2385, 2484, 2585, 2688
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
A033676 := proc(n) local dvs; dvs := sort(convert(numtheory[divisors](n), list)) ; op(floor((nops(dvs)+1)/2) , dvs) ; end proc:
A163280 := proc(n, k) local r, T ; r := 0 ; for T from k^2 by k do if A033676(T) = k then r := r+1 ; if r = n then return T ; end if; end if; end do: end proc:
printf("0, ") ; for n from 1 to 90 do printf("%d, ", A163280(9, n)) ; end do ; # R. J. Mathar, Jul 31 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|