A087486 Numbers k such that digital sum of k divides digital sum of k-th prime, p(k).

1, 10, 11, 20, 22, 32, 52, 56, 88, 100, 101, 104, 125, 160, 175, 176, 182, 200, 212, 218, 223, 227, 248, 262, 263, 293, 295, 323, 331, 338, 341, 362, 377, 386, 394, 397, 398, 409, 410, 439, 442, 446, 457, 481, 499, 508, 521, 526, 533, 563, 571, 595, 599, 611

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

52 is in the sequence because prime(52)=239 and 5+2=7 divides 2+3+9=14.

Mathematica

Select[Range[700], Mod[Total[IntegerDigits[Prime[#]]], Total[IntegerDigits[#]]]==0&] (* Harvey P. Dale, May 17 2026 *)

Prog

(PARI) sod(n) = {digs = digits(n, 10); return (sum(j=1, #digs, digs[j])); }
isok(n) = (sod(prime(n)) % sod(n) == 0) \\ Michel Marcus, Jul 27 2013

Crossrefs

Cf. A007605, A007953.

Sequence in context: A109827 A109839 A280149 * A284375 A102626 A306960

Adjacent sequences: A087483 A087484 A087485 * A087487 A087488 A087489

Keyword

nonn,base

Author

Lekraj Beedassy, Oct 23 2003

Extensions

More terms from Ray Chandler, Oct 25 2003

Status

approved