cp's OEIS Frontend

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.

A167705 Composite numbers having four composite nearest neighbors.

This page as a plain text file.
%I A167705 #16 Aug 03 2014 14:35:08
%S A167705 26,34,50,56,64,76,86,92,93,94,116,117,118,119,120,121,122,123,124,
%T A167705 134,142,143,144,145,146,154,160,170,176,184,185,186,187,188,202,203,
%U A167705 204,205,206,207,208,214,215,216,217,218,219,220,236,244,245,246,247,248,254,260,266,274,286,287,288,289,290,296,297,298,299,300
%N A167705 Composite numbers having four composite nearest neighbors.
%C A167705 Almost all natural numbers are members of this sequence.
%H A167705 Harvey P. Dale, <a href="/A167705/b167705.txt">Table of n, a(n) for n = 1..10000</a>
%e A167705 a(1)=26 (24,25,27,28 are composite nearest neighbors), a(2)=34 (32,33,35,36 are composite nearest neighbors).
%t A167705 Select[Range[6!], !PrimeQ[#]&&!PrimeQ[#-1]&&!PrimeQ[#+1]&&!PrimeQ[#-2]&&!PrimeQ[#+2]&] (* _Vladimir Joseph Stephan Orlovsky_, Dec 26 2010 *)
%t A167705 Flatten[Position[Partition[PrimeQ[Range[310]],5,1],_?(Union[#]=={False}&),{1},Heads->False]]+2 (* _Harvey P. Dale_, Nov 01 2013 *)
%o A167705 (PARI) for(n=4,1e4,if(n-precprime(n)>2&&nextprime(n)-n>2,print1(n",")))
%Y A167705 Cf. A002808, A079364.
%K A167705 nonn,easy
%O A167705 1,1
%A A167705 _Juri-Stepan Gerasimov_, Nov 10 2009
%E A167705 Comment and program from _Charles R Greathouse IV_, Nov 12 2009
%E A167705 Corrected terms, Clark Kimberling and Joerg Arndt, Jun 24 2011.