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 A177965 #40 Feb 16 2022 04:15:28
%S A177965 1,4,7,10,16,19,22,31,34,37,40,49,52,55,64,70,76,79,82,91,97,100,106,
%T A177965 112,115,121,136,139,142,154,157,166,169,175,184,187,190,199,205,211,
%U A177965 217,220,229,232,244,250,262,271,274,286,289,301,304,307,310,316,322,331,337,346
%N A177965 Indices m for which A177961(m) - m = 1.
%C A177965 1 is the smallest value of |A177961(m) - m|.
%H A177965 Robert Israel, <a href="/A177965/b177965.txt">Table of n, a(n) for n = 1..10000</a>
%F A177965 a(n) = (A002476(n-1) + 1)/2, n > 1.
%p A177965 1,op(map(t -> 3*t+1, select(t -> isprime(6*t+1),[$1..1000]))); # _Robert Israel_, Jul 31 2015
%t A177965 Position[Table[If[m == 1, 2, Mean[{FactorInteger[2 m - 1][[1, 1]], FactorInteger[2 m + 1][[1, 1]]}]] - m, {m, 346}], n_ /; n == 1] // Flatten (* _Michael De Vlieger_, Aug 02 2015 *)
%Y A177965 Cf. A002476, A177961, A177964, A177966.
%K A177965 nonn
%O A177965 1,2
%A A177965 _Vladimir Shevelev_, May 16 2010
%E A177965 More terms from _R. J. Mathar_, Oct 25 2010