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,2

Links

Table of n, a(n) for n=1..57.

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

Crossrefs

Cf. A000040, A002808, A144925.

Sequence in context: A189833 A336711 A063080 * A109079 A050883 A064164

Adjacent sequences: A167128 A167129 A167130 * A167132 A167133 A167134

Keyword

nonn

Author

Juri-Stepan Gerasimov, Oct 28 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

Status

approved