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 A176393 #5 Feb 03 2019 22:29:06 %S A176393 1,3,9,13,17,19,21,25,29,31,33,37,41,43,45,49,51,53,55,57,61,65,67,69, %T A176393 71,73,77,79,81,85,89,91,93,97,99,101,103,105,109,111,113,115,117,121, %U A176393 125,127,129,131,133,137,139,141,145,149,151,153,155,157,161,163,165 %N A176393 a(n) = A176100(n) + 1 = 2*A141468(n) + 1. %p A176393 From _R. J. Mathar_, Apr 20 2010: (Start) %p A176393 isA001358 := proc(n) numtheory[bigomega](n) = 2 ; end proc: %p A176393 A176100 :=proc(n) if n = 1 then 0; else for a from procname(n-1)+2 by 2 do if not isA001358(a) then return a; end if; end do: end if; end proc: %p A176393 A176363 := proc(n) 1+A176100(n) ; end proc: seq(A176363(n),n=1..80) ; (End) %K A176393 nonn %O A176393 1,2 %A A176393 _Juri-Stepan Gerasimov_, Apr 16 2010 %E A176393 Corrected (139 inserted) by _R. J. Mathar_, Apr 20 2010