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