OFFSET
1,1
COMMENTS
Subsequence of A240603.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
Select[Abs[Differences[Select[Range[1000], MoebiusMu[#] != 0 &] * (-1)^Range[608]]], PrimeQ] (* Alonso del Arte, Jun 09 2014 *)
Select[Total/@Partition[Select[Range[500], SquareFreeQ], 2, 1], PrimeQ] (* Harvey P. Dale, Jul 29 2018 *)
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Juri-Stepan Gerasimov, Jun 08 2014
STATUS
approved