login
A336411
a(n) = A029707(n+2) - 3 for n >= 1.
2
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)".
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.
Sequence in context: A101472 A273872 A087160 * A107427 A130251 A276208
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