|
%I #6 Jan 29 2019 01:51:52
%S 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 58,69,73,76,83,92,98,115,129,138,139,154,164,165,166,172,190,198,218,
%U 223,241,268,274,292,304,330
%N Records in A154804.
%p 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 Cf. A008578, A154804, A154720, A154721.
%K more,nonn
%O 1,3
%A _Omar E. Pol_, Feb 01 2009
%E More terms from _R. J. Mathar_, Mar 14 2009
|
