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

Author

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

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A226090.

Cf. A024770, A225873, A225885, A226354.

Programs

Mathematica

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

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