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 A167131 #7 May 10 2019 21:43:58
%S A167131 1,8,9,12,21,24,26,30,38,44,45,49,53,61,66,81,84,86,97,100,106,109,
%T A167131 116,121,131,140,154,165,183,189,191,198,203,205,208,216,232,245,252,
%U A167131 257,270,283,290,305,308,310,313,323,325,330,340,342,358,363,367,377,388
%N A167131 Numbers k such that A002808(k) - A144925(k) is prime.
%p A167131 A070824 := proc(n) if n <=3 then 0; else numtheory[tau](n)-2 ; end if; end proc: A144925 := proc(n) A070824(A002808(n)) ; end proc: isA167131 := proc(n) isprime( A002808(n)-A144925(n)) ; end proc: for n from 1 to 1000 do if isA167131(n) then printf("%d,",n) ; end if; od: # _R. J. Mathar_, Nov 02 2009
%Y A167131 Cf. A000040, A002808, A144925.
%K A167131 nonn
%O A167131 1,2
%A A167131 _Juri-Stepan Gerasimov_, Oct 28 2009
%E A167131 Edited (but not checked) by _N. J. A. Sloane_, Nov 01 2009
%E A167131 105 replaced with 106 and sequence extended by _R. J. Mathar_, Nov 02 2009