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 A075027 #26 Sep 28 2021 17:33:44 %S A075027 4,6,8,10,12,16,18,20,24,28,30,32,36,40,42,48,50,52,54,56,60,64,66,68, %T A075027 70,72,78,80,84,88,90,92,96,100,102,108,110,112,114,120,124,126,128, %U A075027 130,132,138,140,144,150,152,154,156,160,162,165,168,170,174,176,180 %N A075027 Numbers k such that d(k-1) < d(k) > d(k+1), d = A000005. %C A075027 Obviously every term is composite. %C A075027 The average of each twin prime pair is a term. %C A075027 a(55) = 165 is the first odd term; A323379 lists all odd terms. - _Jon E. Schoenfield_, Sep 26 2021 %H A075027 Michael De Vlieger, <a href="/A075027/b075027.txt">Table of n, a(n) for n = 1..3403</a> (first 1001 terms from Harvey P. Dale) %e A075027 10 is a term since d(9) = 3, d(10) = 4, d(11) = 2 and 3 < 4 > 2. %p A075027 q:= k-> (d-> d(k-1)<d(k) and d(k)>d(k+1))(numtheory[tau]): %p A075027 select(q, [$1..200])[]; # _Alois P. Heinz_, Sep 28 2021 %t A075027 #[[2,1]]&/@Select[Partition[Table[{n,DivisorSigma[0,n]},{n,200}],3,1], #[[1,-1]]<#[[2,-1]]>#[[3,-1]]&] (* _Harvey P. Dale_, Oct 09 2011 *) %Y A075027 Cf. A000005, A014574, A075025, A075026, A323379. %K A075027 nonn %O A075027 1,1 %A A075027 _Amarnath Murthy_, Sep 02 2002 %E A075027 More terms from _Jason Earls_, Sep 04 2002