A069806 Smallest k > n such that the squarefree part of n divides the squarefree part of k.

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

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