STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Primes in the sequence A005349(n) - 1.
proposed
editing
editing
proposed
Amiram Eldar, <a href="/A092787/b092787.txt">Table of n, a(n) for n = 1..10000</a>
nivenQ[n_] := Divisible[n, Plus @@ IntegerDigits[n]]; Select[Range[600], PrimeQ[#] && nivenQ[# + 1] &] (* Amiram Eldar, Dec 05 2021 *)
approved
editing
_Jorge Coveiro (jorgecoveiro(AT)yahoo.com), _, Apr 14 2004
editing
approved
easy,nonn,base
approved
editing
easy,nonn,new
Jorge Coveiro (rubyxjjorgecoveiro(AT)hotmailyahoo.com), Apr 14 2004