login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A048393 Replacing digits d in decimal expansion of n with d^3 yields a prime. 5
11, 13, 23, 31, 41, 43, 53, 61, 73, 101, 107, 109, 121, 137, 143, 149, 151, 157, 161, 169, 173, 181, 191, 211, 217, 221, 229, 233, 241, 253, 257, 259, 271, 277, 281, 299, 307, 311, 313, 319, 323, 331, 421, 427, 431, 449, 469, 493, 511, 527, 541, 577, 589 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..53.

EXAMPLE

313 = (3)(1)(3) -> (27)(1)(27) = 27127, which is a prime.

MATHEMATICA

Select[Range[600], PrimeQ[FromDigits[Flatten[IntegerDigits/@ (IntegerDigits[ #]^3)]]]&] (* Harvey P. Dale, Jan 27 2015 *)

PROG

(Python)

import sympy

n=2

while n>0:

....t=int(''.join([str(int(i)**3) for i in list(str(n))]))

....if sympy.isprime(t)==True:

........print(n)

....n=sympy.nextprime(n)

# Abhiram R Devesh, Feb 09 2015

CROSSREFS

Cf. A048390, A048394.

Sequence in context: A289688 A080790 A066123 * A136058 A106073 A072330

Adjacent sequences:  A048390 A048391 A048392 * A048394 A048395 A048396

KEYWORD

nonn,base

AUTHOR

Patrick De Geest, Mar 15 1999

EXTENSIONS

Offset corrected by Michel Marcus, Oct 19 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 13 20:38 EDT 2019. Contains 327981 sequences. (Running on oeis4.)