The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Jul 29 2018 18:24:27
%S 3,5,11,13,17,29,43,59,61,67,83,89,127,131,139,151,157,173,211,227,
%T 229,233,241,271,277,283,317,331,337,347,373,389,419,421,443,449,461,
%U 487,509,521,547,563,571,577,593,619,631,643,653,659,661,691,709,727,733,751,787,797,809
%N Primes which are the sum of two consecutive squarefree numbers.
%C Subsequence of A240603.
%H Harvey P. Dale, <a href="/A243627/b243627.txt">Table of n, a(n) for n = 1..1000</a>
%e 3 is in this sequence because A005117(1) + A005117(1+1) = 1 + 2 = 3,
%e 5 is in this sequence because A005117(2) + A005117(2+1) = 2 + 3 = 5,
%e 11 is in this sequence because A005117(4) + A005117(4+1) = 5 + 6 = 11.
%t Select[Abs[Differences[Select[Range[1000], MoebiusMu[#] != 0 &] * (-1)^Range[608]]], PrimeQ] (* _Alonso del Arte_, Jun 09 2014 *)
%t Select[Total/@Partition[Select[Range[500],SquareFreeQ],2,1],PrimeQ] (* _Harvey P. Dale_, Jul 29 2018 *)
%Y Cf. A005117, A240603.
%K nonn,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 08 2014