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 A276374 #18 Sep 10 2016 16:25:14 %S A276374 5,6,8,13,14,24,26,31,32,34,51,54,57,62,69,82,83,93,99,113,114,119, %T A276374 125,132,133,139,143,145,151,161,165,181,182,192,195,212,217,219,224, %U A276374 233,266,282,293,295,304,311,312,318,325,338,354,364,369,375,376,382 %N A276374 Numbers n such that A240024(n) = A002808(n). %H A276374 Peter Kagey, <a href="/A276374/b276374.txt">Table of n, a(n) for n = 1..10000</a> %t A276374 c = Select[Range@ 500, CompositeQ]; a = {1, 4}; Do[k = 6; While[Or[PrimeQ@ k, MemberQ[a, k], CoprimeQ[a[[i - 1]], k]], k++]; AppendTo[a, k], {i, 3, Length@ c}]; Flatten@ Position[Union /@ Transpose@ {a, c}, w_ /; Length@ w == 1] (* _Michael De Vlieger_, Sep 01 2016 *) %o A276374 (Haskell) %o A276374 a276374 n = a276374_list !! (n - 1) %o A276374 a276374_list = filter (\i -> a240024 i == a002808 i) [1..] %Y A276374 Cf. A002808, A240024, A276375. %K A276374 nonn %O A276374 1,1 %A A276374 _Peter Kagey_, Aug 31 2016