%I #11 May 28 2021 20:00:40
%S 27,3375,4096,4913,35937,97336,110592,148877,421875,681472,1191016,
%T 1442897,1560896,2628072,3241792,3581577,3869893,4741632,5359375,
%U 8998912,10218313,12649337,16777216,16974593,21253933,26730899,31255875,32157432,43986977,45882712
%N Cubes that become prime when their least-significant (rightmost) digit is removed.
%H Christian N. K. Anderson, <a href="/A226531/b226531.txt">Table of n, a(n) for n = 1..10000</a>
%e 4096 = 16^3, and becomes the prime number 409 when truncated.
%t Select[Range[1000]^3,PrimeQ[Floor[#/10]]&] (* _Harvey P. Dale_, May 28 2021 *)
%o (R) library(gmp)trimR=function(x) { x=as.character(x); ifelse(nchar(x)<2,0,substr(x,1,nchar(x)-1)) }
%o y=as.bigz(rep(0,10000)); len=0; n=as.bigz(-1)
%o while(len<10000) if(isprime(trimR((n=n+1)^3))) y[(len=len+1)]=n^3
%Y Cf. A226090.
%Y Cf. A024770, A225873, A225885, A226354.
%K nonn,base
%O 1,1
%A _Kevin L. Schwartz_ and _Christian N. K. Anderson_, Jun 09 2013