The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A072905 a(n) is the least k > n such that k*n is a square. 16
 4, 8, 12, 9, 20, 24, 28, 18, 16, 40, 44, 27, 52, 56, 60, 25, 68, 32, 76, 45, 84, 88, 92, 54, 36, 104, 48, 63, 116, 120, 124, 50, 132, 136, 140, 49, 148, 152, 156, 90, 164, 168, 172, 99, 80, 184, 188, 75, 64, 72, 204, 117, 212, 96, 220, 126, 228, 232, 236, 135, 244, 248 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS From Peter Kagey, Jun 22 2015: (Start) a(n) is a bijection from the positive integers to A013929 (numbers that are not squarefree). Proof: (1) Injection: Suppose that b 3 such that 3*12 = 6^2 is a perfect square, hence a(3) = 12. MAPLE f:= proc(n) local F, f, x, y;      F:= ifactors(n)[2];      x:= mul(`if`(f[2]::odd, f[1], 1), f=F);      y:= mul(f[1]^floor(f[2]/2), f=F);      x*(y+1)^2 end proc: map(f, [\$1..100]); # Robert Israel, Jun 23 2015 MATHEMATICA a[n_] := For[k = n+1, True, k++, If[IntegerQ[Sqrt[k*n]], Return[k]]]; Array[a, 100] (* Jean-François Alcover, Jan 26 2018 *) PROG (PARI) a(n)=if(n<0, 0, s=n+1; while(issquare(s*n)==0, s++); s) (PARI) a(n)=my(c=core(n)); (sqrtint(n/c)+1)^2*c \\ Charles R Greathouse IV, Jun 23 2015 (Haskell) a072905 n = head [k | k <- [n + 1 ..], a010052 (k * n) == 1] -- Reinhard Zumkeller, Feb 07 2015 (Ruby) def a(n)   k = Math.sqrt(n).to_i   k -= 1 until n % k**2 == 0   n + 2*n/k + n/(k**2) end # Peter Kagey, Jul 27 2015 CROSSREFS Cf. A000188, A007913, A010052, A067722. Sequence in context: A196268 A251756 A158457 * A086481 A329507 A046129 Adjacent sequences:  A072902 A072903 A072904 * A072906 A072907 A072908 KEYWORD easy,nonn AUTHOR Benoit Cloitre, Aug 10 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 22 20:16 EDT 2021. Contains 345388 sequences. (Running on oeis4.)