A141560 Nonprimes of form (prime(n)-r(n)), where A141468(n)=r(n)=n-th nonprime and prime(n)=n-th prime.

1, 1, 4, 9, 14, 15, 21, 22, 25, 34, 35, 40, 50, 55, 62, 65, 65, 68, 69, 86, 91, 91, 100, 106, 111, 118, 123, 124, 133, 133, 135, 136, 147, 158, 161, 161, 164, 169, 169, 177, 182, 187, 192, 200, 201, 209, 222, 225, 226, 246, 255, 256, 259, 264, 275, 280, 287, 296

Offset

1,3

Links

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

Mathematica

Module[{nn=200, np, len}, np=Select[Range[0, nn], !PrimeQ[#]&]; len= Length[ np]; Select[ #[[1]]-#[[2]]&/@Thread[{Prime[Range[len]], np}], !PrimeQ[ #]&]] (* Harvey P. Dale, Oct 15 2020 *)

Crossrefs

Cf. A000040, A141468.

Sequence in context: A279230 A244037 A091880 * A071864 A312987 A050986

Adjacent sequences: A141557 A141558 A141559 * A141561 A141562 A141563

Keyword

nonn,less

Author

Juri-Stepan Gerasimov, Aug 14 2008

Extensions

Edited, corrected and extended by Ray Chandler, Aug 19 2008

Status

approved