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

Author

Juri-Stepan Gerasimov, Aug 14 2008

Keywords

• nonn
• less

Crossrefs

Cf. A000040, A141468.

Programs

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 *)

Extensions

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