|
| |
|
|
A008833
|
|
Largest square dividing n.
|
|
43
|
|
|
|
1, 1, 1, 4, 1, 1, 1, 4, 9, 1, 1, 4, 1, 1, 1, 16, 1, 9, 1, 4, 1, 1, 1, 4, 25, 1, 9, 4, 1, 1, 1, 16, 1, 1, 1, 36, 1, 1, 1, 4, 1, 1, 1, 4, 9, 1, 1, 16, 49, 25, 1, 4, 1, 9, 1, 4, 1, 1, 1, 4, 1, 1, 9, 64, 1, 1, 1, 4, 1, 1, 1, 36, 1, 1, 25, 4, 1, 1, 1, 16, 81, 1, 1, 4, 1, 1, 1, 4, 1, 9, 1, 4, 1, 1, 1, 16, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,4
|
|
|
COMMENTS
|
The Dirichlet generating function of the arithmetic function of the largest t-th power dividing n is zeta(s)*zeta(t*s-t)/zeta(s*t), here with t=2 and in A008834 and A008835 with t=3 and t=4, respectively. - R. J. Mathar, Feb 19 2011
a(n) = A005563(n-1) / A068310(n) for n > 1. [Reinhard Zumkeller, Nov 26 2011]
|
|
|
LINKS
|
Daniel Forgues, Table of n, a(n) for n=1..100000
Eric Weisstein's World of Mathematics, Square part.
H. Bottomley, Some Smarandache-type multiplicative sequences
R. J. Mathar, Survey of Dirichlet series of multiplicative arithmetic functions arXiv:1106.4038 Remark 16.
|
|
|
FORMULA
|
a(n) = A000188(n)^2 = n/A007913(n). Cf. A019554.
Multiplicative with a(p^e) = p^(2[e/2]). - David W. Wilson, Aug 01, 2001.
Dirichlet g.f. zeta(s)*zeta(2s-2)/zeta(2s). - R. J. Mathar, Oct 31 2011
|
|
|
MAPLE
|
with(numtheory): [ seq( expand(nthpow(i, 2)), i=1..200) ];
|
|
|
MATHEMATICA
|
a[n_] := First[ Select[ Reverse[ Divisors[n]], IntegerQ[Sqrt[#]]&, 1]]; Table[a[n], {n, 1, 100}] (* From Jean-François Alcover, Dec 12 2011 *)
|
|
|
PROG
|
(PARI) A008833(n)=n/core(n) [From Michael B. Porter, Oct 17 2009]
(Haskell)
a008833 n = head $ filter ((== 0) . (mod n)) $
reverse $ takeWhile (<= n) $ tail a000290_list
-- Reinhard Zumkeller, Nov 13 2011
|
|
|
CROSSREFS
|
Sequence in context: A085731 A131301 A083730 * A162400 A179054 A063928
Adjacent sequences: A008830 A008831 A008832 * A008834 A008835 A008836
|
|
|
KEYWORD
|
nonn,easy,mult
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
EXTENSIONS
|
More terms from James A. Sellers, Jun 20 2000
|
|
|
STATUS
|
approved
|
| |
|
|
