A167131 Numbers k such that A002808(k) - A144925(k) is prime.

1, 8, 9, 12, 21, 24, 26, 30, 38, 44, 45, 49, 53, 61, 66, 81, 84, 86, 97, 100, 106, 109, 116, 121, 131, 140, 154, 165, 183, 189, 191, 198, 203, 205, 208, 216, 232, 245, 252, 257, 270, 283, 290, 305, 308, 310, 313, 323, 325, 330, 340, 342, 358, 363, 367, 377, 388

Offset: 1

Author

Juri-Stepan Gerasimov, Oct 28 2009

Keywords

• nonn

Crossrefs

Cf. A000040, A002808, A144925.

Programs

Maple

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

Extensions

Edited (but not checked) by N. J. A. Sloane, Nov 01 2009

105 replaced with 106 and sequence extended by R. J. Mathar, Nov 02 2009