The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A069806 Smallest k > n such that the squarefree part of n divides the squarefree part of k. 1
 2, 6, 6, 5, 10, 24, 14, 10, 10, 30, 22, 15, 26, 42, 30, 17, 34, 22, 38, 30, 42, 66, 46, 30, 26, 78, 30, 35, 58, 120, 62, 34, 66, 102, 70, 37, 74, 114, 78, 70, 82, 168, 86, 55, 55, 138, 94, 51, 50, 54, 102, 65, 106, 66, 110, 70, 114, 174, 118, 105, 122, 186, 70, 65 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Amiram Eldar, Table of n, a(n) for n = 1..10000 MATHEMATICA core[n_] := Times @@ (First[#]^Mod[Last[#], 2]& /@ FactorInteger[n]); a[n_] := Module[{k = n + 1, c = core[n]}, While[!Divisible[core[k], c], k++]; k]; Array[a, 100] (* Amiram Eldar, Sep 03 2020 *) PROG (PARI) for(s=1, 100, n=s+1; while(frac(core(n)/core(s))>0, n++); print1(n, ", "); ) CROSSREFS Cf. A007913. Sequence in context: A007507 A350031 A065486 * A123945 A291793 A284121 Adjacent sequences: A069803 A069804 A069805 * A069807 A069808 A069809 KEYWORD easy,nonn AUTHOR Benoit Cloitre, May 01 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 2 01:29 EST 2024. Contains 370447 sequences. (Running on oeis4.)