A061437 Numbers n such that n+1 divides prime(n)+1.
5, 6, 13, 15, 31, 32, 34, 75, 77, 445, 2701, 15929, 40079, 40156, 251720, 251766, 251769, 251787, 10553437, 10553577, 10553645, 10553815, 179992919, 179993161, 179993169, 3140421756, 3140421774, 3140421782, 55762149085, 55762149089, 55762149101
Offset: 1
Keywords
Examples
5+1 divides Prime(5)+1 = 11+1, so 5 is a term of the sequence.
Programs
-
Mathematica
Select[Range[10^6], Mod[Prime[ # ] + 1, # + 1] == 0 &]
-
PARI
isok(n) = (prime(n)+1) % (n+1) == 0; \\ Michel Marcus, Apr 15 2017
Extensions
Corrected and extended by Don Reble, Nov 20 2006
a(26)-a(31) from Giovanni Resta, Apr 15 2017