|
%I #11 Oct 19 2017 03:13:54
%S 5,6,13,15,31,32,34,75,77,445,2701,15929,40079,40156,251720,251766,
%T 251769,251787,10553437,10553577,10553645,10553815,179992919,
%U 179993161,179993169,3140421756,3140421774,3140421782,55762149085,55762149089,55762149101
%N Numbers n such that n+1 divides prime(n)+1.
%e 5+1 divides Prime(5)+1 = 11+1, so 5 is a term of the sequence.
%t Select[Range[10^6], Mod[Prime[ # ] + 1, # + 1] == 0 &]
%o (PARI) isok(n) = (prime(n)+1) % (n+1) == 0; \\ _Michel Marcus_, Apr 15 2017
%Y Cf. A045924, A062061.
%K nonn
%O 1,1
%A _Joseph L. Pe_, Feb 13 2002
%E Corrected and extended by _Don Reble_, Nov 20 2006
%E a(26)-a(31) from _Giovanni Resta_, Apr 15 2017
|
