|
%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
|
