A316190 -id:A316190 - cp's OEIS frontend

A316191 List of indices where the maximum of {A316190(j) | j<=n} increases.

1, 11, 37, 89, 211, 1344, 1345, 1346, 2503, 3967, 15704, 15705, 16033, 19634, 19635, 24281, 31428, 31429, 31430, 31431, 31432, 31433, 38501, 58831, 155964, 203713, 206699

Offset: 1

Peter Luschny, Jun 26 2018

nonn

			a(3) = 37 because A316190(37) = 4 > 2 = max{A316190(n) : 1 <= n < 37}.

Cf. A002540, A316190.

A316191_list := proc(N) local R,a,A,n,mx; R := NULL;
A := A316190_list(N); n := 1; mx := 0;
for a in A do
   if a > mx then mx := a; R := R,n fi;
   n := n + 1;
od; [R] end:
A316191_list(10000);

A309913 Distance from n to closest squarefree number that is different from n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1

Offset: 0

Ilya Gutkovskiy, Aug 22 2019

nonn

Index entries for sequences related to distance to nearest element of some set

Cf. A005117, A051700, A080733, A316190.

a[n_] := Module[{k = 1}, While[! SquareFreeQ[n + k] && ! SquareFreeQ[n - k], k++]; k]; Table[a[n], {n, 0, 100}]

cp's OEIS Frontend

A316191 List of indices where the maximum of {A316190(j) | j<=n} increases.

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple