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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034752 Dirichlet convolution of 3^(n-1) with primes (with 1). 0
1, 5, 12, 38, 88, 281, 742, 2273, 6607, 19889, 59078, 177823, 531478, 1595861, 4783318, 14353514, 43046774, 129154229, 387420550, 1162301563, 3486786776, 10460471461, 31381059688, 94143541523, 282429537137, 847289672533, 2541865848284, 7625600677855 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
MAPLE
dc:= proc(b, c) proc(n) option remember; add(
b(d)*c(n/d), d=numtheory[divisors](n)) end
end:
a:= dc(x-> 3^(x-1), y-> `if`(y=1, 1, ithprime(y-1))):
seq(a(n), n=1..33); # Alois P. Heinz, Nov 07 2021
MATHEMATICA
dc[b_, c_] := Module[{a}, a[n_] := a[n] = Sum[
b[d]*c[n/d], {d, Divisors[n]}]; a];
a = dc[3^(#-1)&, If[# == 1, 1, Prime[#-1]]&];
Table[a[n], {n, 1, 33}] (* Jean-François Alcover, May 21 2022, after Alois P. Heinz *)
CROSSREFS
Sequence in context: A359189 A297909 A220705 * A095310 A122299 A162269
KEYWORD
nonn
AUTHOR
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:02 EDT 2024. Contains 371254 sequences. (Running on oeis4.)