This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A047791 Numbers n such that n plus digit sum of n (A007953) equals a prime. 27
 1, 10, 11, 13, 14, 16, 19, 32, 34, 35, 37, 52, 53, 56, 58, 59, 71, 73, 76, 91, 92, 94, 95, 97, 100, 101, 103, 104, 106, 122, 124, 127, 128, 142, 143, 146, 149, 160, 163, 166, 167, 181, 182, 184, 185, 215, 217, 218, 232, 233, 238, 250, 253, 256, 257, 271, 272 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 FORMULA Complement of A107743. A062028^(-1)(A000040). - M. F. Hasler, Nov 08 2018 EXAMPLE Digit sum of 13 = 1 + 3 = 4 -> 13 + 4 = 17 is prime. MAPLE P:=proc(n) local i, j, k, w; for i from 1 by 1 to n do w:=0; k:=i; j:=k; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; if isprime(j+w) then print(j); fi; od; end: P(1000); # Paolo P. Lava, Mar 02 2009 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 Cf. A006378, A107740. Cf. A007953, A062028, A010051, A107743. Sequence in context: A216502 A219256 A107741 * A253610 A302578 A093679 Adjacent sequences:  A047788 A047789 A047790 * A047792 A047793 A047794 KEYWORD base,easy,nonn AUTHOR EXTENSIONS More terms from Larry Reeves (larryr(AT)acm.org), Nov 16 2000 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 16 21:10 EDT 2019. Contains 328103 sequences. (Running on oeis4.)