The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A085298 a(n) is the smallest exponent x such that prime(n)^x when reversed is a prime. 5
 1, 1, 1, 1, 1, 1, 1, 2, 8, 7, 1, 1, 2, 5, 15, 10, 12, 4, 39, 1, 1, 1, 11, 2, 1, 1, 10, 1, 23, 1, 5, 1, 243, 2, 1, 1, 1, 23, 1, 34, 1, 1, 1, 2, 58, 1, 3, 9, 166, 17, 68, 8, 8, 3, 7, 5, 5, 2, 2, 2, 61, 11, 97, 1, 1, 10, 2, 1, 1, 41, 1, 1, 66, 1, 5, 1, 1, 2, 2, 8, 40, 2, 8, 19, 2, 2, 723 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,8 COMMENTS It is conjectured that for every n such exponent exists. LINKS Giovanni Resta, Table of n, a(n) for n = 1..100 FORMULA a(n) = Min{x; reversed(prime(n)^x) is a prime}. EXAMPLE a(n)=1 means that rev(prime(n)) is prime i.e. prime(n) is in A007500; a(n)=2 means that rev(prime(n)^2) is prime but rev(prime(n)) is not, like n=8:p=19 and 91 is not a prime but rev[19^2]=rev[361]=163 is a prime; For n, the first k exponent providing rev(prime(n)^k) prime can be quite large, like at n=87: rev(p(87)^723)=rev(449^723) is the first [probably] prime has 1918 decimal digits: 948......573. MAPLE a:= proc(n) local k, p; p:= ithprime(n); for k while not isprime((s-> parse(cat(seq(s[-i], i=1..length(s)))))(""||(p^k))) do od; k end: seq(a(n), n=1..50); # Alois P. Heinz, Sep 04 2019 MATHEMATICA a[n_] := Block[{k = 1}, While[! PrimeQ@ FromDigits@ Reverse@ IntegerDigits[ Prime[n]^k], k++]; k]; Array[a, 87] (* Giovanni Resta, Sep 04 2019 *) PROG (PARI) a(n) = {my(x=1, p=prime(n)); while (!ispseudoprime(fromdigits(Vecrev(digits(p^x)))), x++); x; } \\ Michel Marcus, Sep 04 2019 CROSSREFS Cf. A000040, A057708, A058993, A056994, A059695, A003459, A007500, A055387, A061461, A068652. Sequence in context: A130820 A134877 A336069 * A011060 A278808 A323459 Adjacent sequences: A085295 A085296 A085297 * A085299 A085300 A085301 KEYWORD base,nonn AUTHOR Labos Elemer, Jun 24 2003 STATUS approved

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

Last modified August 10 22:34 EDT 2024. Contains 375058 sequences. (Running on oeis4.)