Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 May 12 2019 02:17:56
%S 2,6,23,30,37,42,47,53,67,79,83,89,97,102,113,127,131,138,157,163,167,
%T 173,211,223,233,251,257,263,277,282,293,307,317,331,337,353,359,367,
%U 373,379,383,389,397,401,409,439,443,449,457,462,467,479,487,491,499,503,509
%N Squarefree numbers which are also isolated numbers.
%F A005117 INTERSECT A167706.
%F A005117 \ A168252.
%p isA007510 := proc(n) if isprime(n) then not isprime(n-2) and not isprime(n+2) ; else false; end if ; end proc:
%p isA014574 := proc(n) isprime(n+1) and isprime(n-1) ; end proc:
%p isA167706 := proc(n) isA007510(n) or isA014574(n) ; end proc:
%p isA005117 := proc(n) n =1 or numtheory[issqrfree](n) ; end proc:
%p isA168270 := proc(n) isA005117(n) and isA167706(n) ; end proc:
%p for n from 1 to 600 do if isA168270(n) then printf("%d,",n) ; fi; od: # _R. J. Mathar_, Dec 09 2009
%Y Cf. A005117, A167706, A168252.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Nov 22 2009
%E Corrected (missing terms inserted) by _R. J. Mathar_, Dec 09 2009