A226531 Cubes that become prime when their least-significant (rightmost) digit is removed.

27, 3375, 4096, 4913, 35937, 97336, 110592, 148877, 421875, 681472, 1191016, 1442897, 1560896, 2628072, 3241792, 3581577, 3869893, 4741632, 5359375, 8998912, 10218313, 12649337, 16777216, 16974593, 21253933, 26730899, 31255875, 32157432, 43986977, 45882712

Offset

1,1

Links

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

Example

4096 = 16^3, and becomes the prime number 409 when truncated.

Mathematica

Select[Range[1000]^3, PrimeQ[Floor[#/10]]&] (* Harvey P. Dale, May 28 2021 *)

Prog

(R) library(gmp)trimR=function(x) { x=as.character(x); ifelse(nchar(x)<2, 0, substr(x, 1, nchar(x)-1)) }
y=as.bigz(rep(0, 10000)); len=0; n=as.bigz(-1)
while(len<10000) if(isprime(trimR((n=n+1)^3))) y[(len=len+1)]=n^3

Crossrefs

Cf. A226090.

Cf. A024770, A225873, A225885, A226354.

Sequence in context: A132645 A223551 A178631 * A017559 A069076 A128507

Adjacent sequences: A226528 A226529 A226530 * A226532 A226533 A226534

Keyword

nonn,base

Author

Kevin L. Schwartz and Christian N. K. Anderson, Jun 09 2013

Status

approved