|
|
|
|
|
|
|
|
|
#10 by Charles R Greathouse IV at Thu Nov 21 12:47:07 EST 2013
|
|
| MATHEMATICA
|
RecurrenceTable[{a[1]==2, a[n]==a[n-1]^Prime[n]}, a[n], {n, 4}] (* From }] (* _Harvey P. Dale, _, Jul 18 2011 *)
|
|
|
|
|
Discussion
|
| Thu Nov 21
| 12:47
| OEIS Server: https://oeis.org/edit/global/2062
|
|
|
|
|
|
|
#9 by Charles R Greathouse IV at Thu Jun 20 17:56:26 EDT 2013
|
|
|
|
|
|
|
|
#8 by Charles R Greathouse IV at Thu Jun 20 17:56:24 EDT 2013
|
|
| KEYWORD
|
nonn,changed,nice
|
|
|
|
|
|
|
#7 by Charles R Greathouse IV at Thu Jun 20 17:56:18 EDT 2013
|
|
| NAME
|
a(1)=prime(1)=) = 2, a(n)=) = a(n-1)^prime(n) for n). > 1.
|
|
| EXAMPLE
|
a(3)=32768 because (2^3)^5=32768.
|
|
| PROG
|
(PARI) a(n)=if(n<2, 1, a(n-1)^prime(n)) \\ Charles R Greathouse IV, Jun 20 2013
|
|
| KEYWORD
|
nice,nonn
nonn
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#6 by N. J. A. Sloane at Sat May 18 16:49:26 EDT 2013
|
|
|
|
|
|
Discussion
|
| Sat May 18
| 16:49
| OEIS Server: https://oeis.org/edit/global/1921
|
|
|
|
|
|
|
#5 by Harvey P. Dale at Mon Jul 18 15:45:44 EDT 2011
|
|
|
|
|
|
|
|
#4 by Harvey P. Dale at Mon Jul 18 15:45:34 EDT 2011
|
|
| MATHEMATICA
|
RecurrenceTable[{a[1]==2, a[n]==a[n-1]^Prime[n]}, a[n], {n, 4}] (* From Harvey P. Dale, Jul 18 2011 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#3 by N. J. A. Sloane at Wed Oct 20 03:00:00 EDT 2010
|
|
| KEYWORD
|
nice,nonn,new
|
|
| AUTHOR
|
Felice Russo (felice.russofrusso(AT)katamailmicron.com)
|
|
|
|
|
|
|
#2 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
|
|
| KEYWORD
|
huge,nice,nonn,new
|
|
| AUTHOR
|
Felice Russo (frusso@micronfelice.russo(AT)katamail.com)
|
|
|
|
|
|
|
#1 by N. J. A. Sloane at Sat Dec 11 03:00:00 EST 1999
|
|
| NAME
|
a(1)=prime(1)=2, a(n)=a(n-1)^prime(n).
|
|
| DATA
|
2, 8, 32768, 40564819207303340847894502572032
|
|
| OFFSET
|
1,1
|
|
| EXAMPLE
|
a(3)=32768 because (2^3)^5=32768
|
|
| KEYWORD
|
huge,nice,nonn
|
|
| AUTHOR
|
Felice Russo (frusso@micron.com)
|
|
| STATUS
|
approved
|
|
|
|
|
|
