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 A190355 #20 Jul 21 2021 11:56:00 %S A190355 199,307,341,349,351,415,491,737,739,851,949,1013,1061,1149,1205,1211, %T A190355 1275,1277,1313,1315,1421,1667,1695,1747,1925,2049,2149,2276,2357, %U A190355 2365,2683,2717,2827,2889,2891,2949,3051,3115,3173,3259,3475,3581,3651,3797,4013,4045,4149,4193,4449,4597,4627,4654,4843 %N A190355 Numbers n such that d(n-1)=d(n+1)=12 where d(k)=A000005(k) (number of divisors of k). %H A190355 G. C. Greubel, <a href="/A190355/b190355.txt">Table of n, a(n) for n = 1..5000</a> %F A190355 A000005(a(n)-1) = A000005(a(n)+1) = 12. %t A190355 Select[Range[2, 8000], DivisorSigma[0, # - 1] == 12 && DivisorSigma[0, # + 1] == 12 &] (* _G. C. Greubel_, Dec 29 2017 *) %t A190355 SequencePosition[DivisorSigma[0,Range[5000]],{12,_,12}][[All,1]]+1 (* _Harvey P. Dale_, Jul 21 2021 *) %o A190355 (PARI) for(n=2,10^4,if( numdiv(n-1)==12 && numdiv(n+1)==12, print1(n,", "))); /* _Joerg Arndt_, May 13 2011 */ %Y A190355 Cf. A189974, A190267. %K A190355 nonn %O A190355 1,1 %A A190355 _Juri-Stepan Gerasimov_, May 09 2011 %E A190355 Terms corrected by _R. J. Mathar_, May 25 2011