1,2

Robert Israel, Table of n, a(n) for n = 1..10000

Comps:= remove(isprime, [$4..200]):

A:= {seq(Comps[i]+i, i=1..nops(Comps))}:

sort(convert({$1..max(A)} minus A, list)); # Robert Israel, Mar 23 2020

Complement of A161537.

Sequence in context: A211264 A189725 A248635 * A225819 A205805 A246372

Adjacent sequences: A171508 A171509 A171510 * A171512 A171513 A171514

nonn

Jaroslav Krizek, Dec 10 2009

approved