A092787 Primes in the sequence A005349 - 1.

2, 3, 5, 7, 11, 17, 19, 23, 29, 41, 47, 53, 59, 71, 79, 83, 89, 101, 107, 109, 113, 131, 139, 149, 151, 179, 191, 197, 199, 223, 227, 229, 233, 239, 251, 263, 269, 307, 311, 359, 401, 409, 419, 431, 439, 443, 449, 467, 479, 499, 503, 509, 521, 557, 587, 593, 599

Offset: 1

Author

Jorge Coveiro, Apr 14 2004

Keywords

• easy
• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A005349.

Programs

Mathematica

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

Extensions

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