login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A095189 Smallest prime formed by the digit string after decimal point of n^(1/n), or 0 if no such prime exists. 1
0, 41, 442249570307408382321638310780109588391, 41, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 19, 189207115002721, 181, 17, 167, 16158634964154228180872122424567684345543663819, 15601, 15085130035827878542455979623747888891433345604817588712723282399687865427853871, 1460552582234841803 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Conjecture: a(n) is nonzero for all n>1. Generates surprisingly large primes that are easily certified using Elliptic curve techniques (Mathematica's NumberTheory`PrimeQ`). For n=24 no certifiable prime was found with fewer than 1024 digits. - Wouter Meeussen, Jun 04 2004

LINKS

Robert G. Wilson, Table of n, a(n) for n = 1..23

Robert G. Wilson, Table of n, a(n) with a(n)=Unknown where not known

EXAMPLE

a(7) = 3 as 7^(1/7) =1.3204692477561... and the least prime is 3.

MATHEMATICA

<< NumberTheory`PrimeQ`; Table[{n, k = 1; While[temp = Floor[10^k FractionalPart[n^(1/n)]]; k < 256 && (temp === 1 || ! ProvablePrimeQ[temp]), k++ ]; temp, k}, {n, 2, 23}]

f[n_] := f[n] = Block[{k = 1, c = FractionalPart[n^(1/n)]}, While[d = FromDigits[ RealDigits[c, 10, k][[1]]]; k < 10001 && ! PrimeQ[d], k++; j = k]; If[k == 10001, 0, d]]; f[1] = 0; Array[f, 23] (* Robert G. Wilson v, Oct 11 2014 *)

CROSSREFS

Cf. A095188.

Sequence in context: A297058 A125194 A237639 * A023932 A243831 A022074

Adjacent sequences:  A095186 A095187 A095188 * A095190 A095191 A095192

KEYWORD

base,nonn

AUTHOR

Amarnath Murthy, Jun 02 2004

EXTENSIONS

Corrected and extended by Wouter Meeussen, Jun 04 2004

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 June 14 01:29 EDT 2021. Contains 345016 sequences. (Running on oeis4.)