login
A083018
Primes whose 10's complement is a cube.
0
2, 73, 271, 5087, 8669, 9973, 31079, 64063, 75611, 80317, 87833, 95087, 98669, 1130257, 3248731, 4264661, 4454767, 5980321, 6692051, 8398387, 9428213, 9543467, 9851123, 9867349, 9940681, 9980317, 9999271, 9999973, 10685377, 36478801, 41136131, 44693659, 46417367, 48935189
OFFSET
1,1
EXAMPLE
a(3)=271 because 1000-271 = 729 = 9^3.
MATHEMATICA
Select[Prime[Range[710000]], IntegerQ[Surd[10^IntegerLength[#]-#, 3]]&] (* Harvey P. Dale, Jul 14 2024 *)
CROSSREFS
Sequence in context: A297410 A041647 A345293 * A240174 A295172 A351589
KEYWORD
nonn,base
AUTHOR
Jason Earls, May 31 2003
EXTENSIONS
More terms from Harvey P. Dale, Jul 14 2024
STATUS
approved