A092787 - OEIS

%I #11 Dec 05 2021 03:52:09

%S 2,3,5,7,11,17,19,23,29,41,47,53,59,71,79,83,89,101,107,109,113,131,

%T 139,149,151,179,191,197,199,223,227,229,233,239,251,263,269,307,311,

%U 359,401,409,419,431,439,443,449,467,479,499,503,509,521,557,587,593,599

%N Primes in the sequence A005349 - 1.

%H Amiram Eldar, <a href="/A092787/b092787.txt">Table of n, a(n) for n = 1..10000</a>

%t nivenQ[n_] := Divisible[n, Plus @@ IntegerDigits[n]]; Select[Range[600], PrimeQ[#] && nivenQ[# + 1] &] (* _Amiram Eldar_, Dec 05 2021 *)

%Y Cf. A005349.

%K easy,nonn,base

%O 1,1

%A _Jorge Coveiro_, Apr 14 2004

%E More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004