A225534 Numbers whose sum of cubed digits is prime.

11, 101, 110, 111, 113, 115, 122, 124, 128, 131, 139, 142, 146, 148, 151, 155, 164, 166, 182, 184, 193, 199, 212, 214, 218, 221, 223, 227, 232, 236, 238, 241, 245, 254, 256, 263, 265, 269, 272, 278, 281, 283, 287, 289, 296, 298, 311, 319, 322, 326, 328, 335

Offset

1,1

Comments

Note that 11 is the only two-digit number in the sequence.

a(n) ~ n. For 414 < n < 10000, 6.38*n - 528 provides an estimate of a(n) to within 6%.

Links

Christian N. K. Anderson, Table of n, a(n) for n = 1..10000

Example

139 is in the sequence because 1^3 + 3^3 + 9^3 = 757, which is prime.

Mathematica

Select[Range[350], PrimeQ[Total[IntegerDigits[#]^3]]&] (* Harvey P. Dale, Mar 16 2016 *)

Prog

(R)
digcubesum<-function(x) sum(as.numeric(strsplit(as.character(x), split="")[[1]])^3); library(gmp);
which(sapply(1:1000, function(x) isprime(digcubesum(x))>0))

Crossrefs

Cf. A197039, A055012, A046459, A225535.

Cf. A165330, A046197.

Cf. A046704, A023194.

Sequence in context: A326108 A292451 A292731 * A245475 A175963 A359610

Adjacent sequences: A225531 A225532 A225533 * A225535 A225536 A225537

Keyword

nonn,base

Author

Kevin L. Schwartz and Christian N. K. Anderson, May 10 2013

Status

approved