OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
nivenQ[n_] := Divisible[n, Plus @@ IntegerDigits[n]]; Select[Range[600], PrimeQ[#] && nivenQ[# + 1] &] (* Amiram Eldar, Dec 05 2021 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Jorge Coveiro, Apr 14 2004
EXTENSIONS
More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
STATUS
approved