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 A154799 #12 Dec 11 2024 16:11:44
%S A154799 0,1,2,3,4,5,6,7,9,10,11,12,13,14,15,19,20,21,24,28,31,33,41,42,44,52,
%T A154799 58,69,73,76,83,92,98,115,129,138,139,154,164,165,166,172,190,198,218,
%U A154799 223,241,268,274,292,304,330,331,341,362,394,434,447,448,466,478
%N A154799 Records in A154804.
%H A154799 Michael S. Branicky, <a href="/A154799/b154799.txt">Table of n, a(n) for n = 1..207</a>
%p A154799 read("transforms") ; A008578 := proc(n) RETURN( n=1 or isprime(n) ) ; end : A154804 := proc(n) local a,d; a := 0 ; for d from 1 to n-1 do if A008578(n-d) and A008578(n+d) then a := a+1; fi; od: a ; end: a804 := [seq(A154804(n),n=1..5000)] ; r := RECORDS(a804)[1] ; # _R. J. Mathar_, Mar 14 2009
%Y A154799 Cf. A008578, A154804, A154720, A154721.
%K A154799 nonn
%O A154799 1,3
%A A154799 _Omar E. Pol_, Feb 01 2009
%E A154799 More terms from _R. J. Mathar_, Mar 14 2009
%E A154799 a(53) and beyond from _Michael S. Branicky_, Dec 11 2024