A240476 - OEIS

%I #17 Apr 29 2014 02:03:36

%S 3,5,7,11,13,23,29,31,37,41,43,47,59,61,67,71,73,79,83,97,101,103,107,

%T 109,113,127,131,137,139,149,151,157,167,173,179,181,191,193,211,223,

%U 227,229,239,241,257,263,277,281,283,311,313,317,331,347,349,353

%N Primes that are not midway between the closest flanking squarefree numbers.

%C Primes for which the corresponding A240473(m) is not equal to A240474(m).

%C Primes not equal to the average of the closest flanking squarefree numbers.

%C Primes not equal to the average of three consecutive squarefree numbers.

%C Complement of A240475 relative to A000040.

%H Chris Boyd, <a href="/A240476/b240476.txt">Table of n, a(n) for n = 1..10000</a>

%e 29 is a term because it is not midway between the closest flanking squarefree numbers 26 and 30.

%e On the other hand, 19 is not a term because it is midway between the closest flanking squarefree numbers 17 and 21.

%o (PARI) forprime(p=1,353,forstep(j=p-1,1,-1,if(issquarefree(j),L=j;break));for(j=p+1,2*p,if(issquarefree(j),G=j;break));if(G-p!=p-L,print1(p", ")))

%Y Cf. A000040, A075430, A075432, A240473, A240474, A240475

%K nonn

%O 1,1

%A _Chris Boyd_, Apr 06 2014