A167725 - OEIS

%I #14 Sep 08 2022 08:45:48

%S 1,27,2197,35937,59319,1092727,1295029,1860867,2685619,4330747,

%T 4826809,5000211,5929741,6128487,8869743,9393931,24137569,26198073,

%U 27818127,29503629,38958219,50243409,54439939,60698457,75686967,91733851,95443993,99252847

%N Cubes that become a prime number when prefixed with a 1

%H Bruno Berselli, <a href="/A167725/b167725.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[500]^3,PrimeQ[FromDigits[Join[{1},IntegerDigits[#]]]]&] (* _Harvey P. Dale_, Oct 30 2014 *)

%o (Magma) [n^3: n in [1..10^3 by 2] | IsPrime(t) where t is Seqint(Reverse([1] cat Reverse(Intseq(n^3))))]; // _Bruno Berselli_, May 24 2012

%K nonn,base

%O 1,2

%A _Claudio Meller_, Nov 10 2009