|
Search: id:A164004
|
|
| |
|
| 0, 5, 10, 18, 28, 40, 54, 70, 88, 108, 130, 154, 180, 208, 238, 270, 304, 340, 378, 418, 460, 504, 550, 598, 648, 700, 754, 810, 868, 928, 990, 1054, 1120, 1188, 1258, 1330, 1404, 1480, 1558, 1638, 1720, 1804, 1890, 1978, 2068, 2160, 2254, 2350, 2448, 2548
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MAPLE
|
A033676 := proc(n) local a, d; a := 0 ; for d in numtheory[divisors](n) do if d^2 <= n then a := max(a, d) ; fi; od: a; end: 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) ; fi; fi; od: end: A164004 := proc(n) if n = 0 then 0; else A163280(4, n) ; fi; end: seq(A164004(n), n=0..80) ; [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 09 2009]
|
|
CROSSREFS
|
Cf. A008578, A161344, A161345, A163280, A164000, A164003, A164005.
Cf. A028552. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 09 2009]
Sequence in context: A092390 A035608 A091386 this_sequence A025010 A058555 A153370
Adjacent sequences: A164001 A164002 A164003 this_sequence A164005 A164006 A164007
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Omar E. Pol (info(AT)polprimos.com), Aug 08 2009
|
|
EXTENSIONS
|
Extended beyond a(12) by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 09 2009
|
|
|
Search completed in 0.002 seconds
|
