A336411 a(n) = A029707(n+2) - 3 for n >= 1.

2, 4, 7, 10, 14, 17, 23, 25, 30, 32, 38, 40, 42, 46, 49, 54, 57, 61, 66, 78, 80, 86, 95, 101, 106, 110, 113, 117, 137, 139, 141, 145, 149, 168, 170, 173, 175, 179, 187, 198, 203, 206, 209, 212, 222, 227, 231, 233, 250, 253, 259, 262, 265, 274, 283, 285, 291

Offset

1,1

Comments

Previous name was "Numbers k such that prime(k) - oc(k) = 4, where oc(k) is the greatest odd composite < prime(k)".

Links

Table of n, a(n) for n=1..57.

Formula

a(n) = A029707(n+2) - 3 = A155752(n+2) - 2. - Hugo Pfoertner, Oct 02 2020

Mathematica

z = 5000; d = Select[Range[2, z], ! PrimeQ@# && OddQ@# &];  (* A014076 *)
f[n_] := Select[d, # < Prime[n] &];
t = Table[Prime[n] - Max[f[n]], {n, 5, 300}]  (* A336409 *)
Flatten[Position[t, 2]]  (* A336410 *)
Flatten[Position[t, 4]]  (* this sequence *)

Crossrefs

Complement of A336410.

Cf. A000040, A014076, A029707, A107770, A155752, A336409.

Sequence in context: A101472 A273872 A087160 * A107427 A130251 A276208

Adjacent sequences: A336408 A336409 A336410 * A336412 A336413 A336414

Keyword

nonn

Author

Clark Kimberling, Sep 06 2020

Extensions

Offset corrected by Mohammed Yaseen, Jul 17 2023

New name from Hugo Pfoertner, Jul 19 2023

Status

approved