

A089150


a(1) = 1; for > 1, a(n) = smallest m such that n^m  {(n1)^a(n1)} is a positive prime.


0



1, 2, 2, 2, 3, 4, 5, 13, 28, 31, 37, 58, 89, 747, 1252
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


MATHEMATICA

k = 1; Do[m = 1; While[n^m < (n1)^k  !PrimeQ[n^m  (n1)^k], m++ ]; k = m; Print[k], {n, 2, 15}] (* Ryan Propper, Jul 15 2005 *)


CROSSREFS

Sequence in context: A239291 A022869 A022865 * A056697 A176975 A132427
Adjacent sequences: A089147 A089148 A089149 * A089151 A089152 A089153


KEYWORD

more,nonn


AUTHOR

Naohiro Nomoto, Dec 06 2003


EXTENSIONS

Two more terms from Ryan Propper, Jul 15 2005


STATUS

approved



