This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A168343 #6 May 11 2019 18:34:35 %S A168343 1,2,3,8,13,17,23,29,33,37,42,48,54,58,64,67,72,79,83,88,92,105,108, %T A168343 114,125,131,136,139,144,150,161,166,178,189,193,197,203,213,218,223, %U A168343 229,235,239,249,262,266,270,283,288,298,302,307,314,319,324,327,332,339 %N A168343 n-th single or isolated number minus n. %F A168343 a(n) = A167706(n) - A000027(n) = A167706(n) - n. %p A168343 isA007510 := proc(n) if isprime(n) then not isprime(n+2) and not isprime(n-2) ; else false; end if; end proc: isA014574 := proc(n) if not isprime(n) then isprime(n+1) and isprime(n-1) ; else false; end if; end proc: A167706 := proc(n) if n = 1 then 2; else for a from procname(n-1)+1 do if isA007510(a) or isA014574(a) then return(a) ; end if; end do ; end if; end proc: A168343 := proc(n) A167706(n)-n ; end proc: seq(A168343(n),n=1..80) ; # _R. J. Mathar_, Nov 24 2009 %K A168343 nonn %O A168343 1,2 %A A168343 _Juri-Stepan Gerasimov_, Nov 23 2009 %E A168343 Corrected by _R. J. Mathar_, Nov 24 2009