|
| |
|
|
A047791
|
|
Numbers n such that n plus digit sum of n (A007953) equals a prime.
|
|
14
|
|
|
|
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
|
|
|
COMMENTS
|
Complement of A107743.
|
|
|
LINKS
|
Table of n, a(n) for n=1..57.
|
|
|
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); [From Paolo P. Lava, Mar 02 2009]
|
|
|
MATHEMATICA
|
Select[Range[272], PrimeQ[#+Total[IntegerDigits[#]]]&] (* Jayanta Basu, May 03 2013 *)
|
|
|
CROSSREFS
|
Cf. A006378, A107740.
Sequence in context: A216502 A219256 A107741 * A093679 A153194 A175224
Adjacent sequences: A047788 A047789 A047790 * A047792 A047793 A047794
|
|
|
KEYWORD
|
base,easy,nonn
|
|
|
AUTHOR
|
G. L. Honaker, Jr.
|
|
|
EXTENSIONS
|
More terms from Larry Reeves (larryr(AT)acm.org), Nov 16 2000
|
|
|
STATUS
|
approved
|
| |
|
|
