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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A279510 Multiplicative with a(p(i)^j) = p(i+1)^a(j) for i-th prime p(i) and j>0. 2
1, 3, 5, 27, 7, 15, 11, 243, 125, 21, 13, 135, 17, 33, 35, 7625597484987, 19, 375, 23, 189, 55, 39, 29, 1215, 343, 51, 3125, 297, 31, 105, 37, 2187, 65, 57, 77, 3375, 41, 69, 85, 1701, 43, 165, 47, 351, 875, 87, 53, 38127987424935, 1331, 1029, 95, 459, 59 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

This sequence establishes a bijection between the natural numbers and A182318.

Records: 1, 3, 5, 27, 243, 7625597484987, 38127987424935, 53379182394909, 7450580596923828125, 22351741790771484375, ..., .

Records appear at: 1, 2, 3, 4, 8, 16, 48, 80, 81, 162, 256, 768, 1280, 1792, 2304, 6400, 6561, 13122, 26244, ..., . Robert G. Wilson v, Dec 14 2016

LINKS

Rémy Sigrist, Table of n, a(n) for n = 1..10000

EXAMPLE

a(6) = a(2*3) = 3*5 = 15

a(16) = a(2^(2^2)) = 3^(3^3) = 7625597484987

MATHEMATICA

a[n_] := Block[{fi = FactorInteger@ n}, Times @@ (NextPrime[#[[1]]]^a[#[[2]]] & /@ fi)]; a[1] = 1; Array[a, 60] (* Robert G. Wilson v, Dec 14 2016 *)

PROG

(PARI) a(n) =  my (f=factor(n)); return (prod(i=1, #f~, nextprime(1+f[i, 1])^a(f[i, 2])))

CROSSREFS

Cf. A003961, A182318.

Sequence in context: A268409 A182030 A282141 * A272148 A272224 A069060

Adjacent sequences:  A279507 A279508 A279509 * A279511 A279512 A279513

KEYWORD

nonn,mult

AUTHOR

Rémy Sigrist, Dec 13 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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified April 25 10:11 EDT 2017. Contains 285379 sequences.