OFFSET
1
COMMENTS
Characteristic function of A005381.
LINKS
FORMULA
MATHEMATICA
Map[Boole[AllTrue[#, CompositeQ]] &, Partition[Range[0, 120], 2, 1]] (* Michael De Vlieger, Jan 07 2019 *)
PROG
(PARI) A323162(n) = ((n>1)&&(!isprime(n))&&(!isprime(n-1)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 07 2019
STATUS
approved