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

 Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 59th year, we have over 358,000 sequences, and we’ve crossed 10,300 citations (which often say “discovered thanks to the OEIS”). Other ways to Give
 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A129597 Central diagonal of array A129595. 5
 1, 4, 6, 16, 10, 24, 14, 64, 54, 40, 22, 96, 26, 56, 90, 256, 34, 216, 38, 160, 126, 88, 46, 384, 250, 104, 486, 224, 58, 360, 62, 1024, 198, 136, 350, 864, 74, 152, 234, 640, 82, 504, 86, 352, 810, 184, 94, 1536, 686, 1000, 306, 416, 106, 1944, 550, 896, 342 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS These are the positions of first appearances of each positive integer in A346704. - Gus Wiseman, Oct 16 2021 LINKS Antti Karttunen, Table of n, a(n) for n = 1..10000 FORMULA From Gus Wiseman, Aug 10 2021: (Start) For n > 1, A001221(a(n)) = A099812(n). If g = A006530(n) is the greatest prime factor of n > 1, then a(n) = 2n^2/g. a(n) = A100484(A000720(n)) = 2n iff n is prime. a(n > 1) = 2*A342768(n). (End) MATHEMATICA Table[If[n==1, 1, 2*n^2/FactorInteger[n][[-1, 1]]], {n, 100}] (* Gus Wiseman, Aug 10 2021 *) PROG (PARI) A129597(n) = if(1==n, n, my(f=factor(n)); (2*n*n)/f[#f~, 1]); \\ Antti Karttunen, Oct 16 2021 CROSSREFS a(n) = A129595(n,n). The sum of prime indices of a(n) is 2*A056239(n) - A061395(n) + 1 for n > 1. The version for odd indices is A342768(n) = a(n)/2 for n > 1. Except the first term, the sorted version is 2*A346635. These are the positions of first appearances in A346704. A001221 counts distinct prime factors. A001222 counts prime factors with multiplicity. A027187 counts partitions of even length, ranked by A028260. A346633 adds up the even bisection of standard compositions (odd: A209281). A346698 adds up the even bisection of prime indices (reverse: A346699). Cf. A000290, A006530, A037143, A329888, A344606, A345957, A346697, A346700, A346701. Sequence in context: A333140 A141042 A123667 * A088843 A154784 A328709 Adjacent sequences: A129594 A129595 A129596 * A129598 A129599 A129600 KEYWORD nonn AUTHOR Antti Karttunen, May 01 2007, based on Marc LeBrun's Jan 11 2006 message on SeqFan mailing list. 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.

Last modified December 9 00:20 EST 2022. Contains 358698 sequences. (Running on oeis4.)