OFFSET
1,2
LINKS
FORMULA
Complement of A107743.
EXAMPLE
Digit sum of 13 = 1 + 3 = 4 -> 13 + 4 = 17 is prime.
MATHEMATICA
Select[Range[272], PrimeQ[#+Total[IntegerDigits[#]]]&] (* Jayanta Basu, May 03 2013 *)
PROG
(Haskell)
a047791 n = a047791_list !! (n-1)
a047791_list = filter ((== 1) . a010051' . a062028) [1..]
-- Reinhard Zumkeller, Sep 27 2014
(PARI) select( is(n)=isprime(n+sumdigits(n)), [1..300]) \\ M. F. Hasler, Nov 08 2018
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Nov 16 2000
STATUS
approved