login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A265576 LCM-transform of EKG sequence A064413. 3
1, 2, 2, 3, 1, 3, 1, 2, 5, 1, 1, 1, 7, 1, 1, 1, 2, 1, 11, 1, 1, 3, 1, 5, 1, 1, 13, 1, 1, 1, 2, 17, 1, 1, 1, 19, 1, 1, 1, 1, 1, 23, 1, 1, 1, 1, 1, 1, 1, 7, 1, 1, 1, 1, 1, 29, 1, 1, 1, 31, 1, 1, 1, 2, 1, 37, 1, 1, 1, 1, 1, 1, 41 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

A. Nowicki, Strong divisibility and LCM-sequences, arXiv:1310.2416 [math.NT], 2013.

A. Nowicki, Strong divisibility and LCM-sequences, Am. Math. Mnthly 122 (2015), 958-966.

MAPLE

LCMXfm:=proc(a) local L, i, n, g, b;

L:=nops(a);

g:=Array(1..L, 0); b:=Array(1..L, 0);

b[1]:=a[1]; g[1]:=a[1];

for n from 2 to L do g[n]:=ilcm(g[n-1], a[n]); b[n]:=g[n]/g[n-1]; od;

lprint([seq(b[i], i=1..L)]);

end;

# let t1 contain the first 100 terms of A064413

LCMXfm(t1);

MATHEMATICA

LCMXfm[a_List] := Module[{L = Length[a], b, g}, b[1] = g[1] = a[[1]]; b[_] = 0; g[_] = 0; Do[g[n] = LCM[g[n - 1], a[[n]]]; b[n] = g[n]/g[n - 1], {n, 2, L}]; Array[b, L]];

ekg[1] = 1; ekg[2] = 2; ekg[n_] := ekg[n] = For[k = 1, True, k++, If[FreeQ[ Array[ekg, n - 1], k] && !CoprimeQ[k, ekg[n - 1]], Return[k]]];

LCMXfm[Array[ekg, 100]] (* Jean-Fran├žois Alcover, Dec 05 2017 *)

CROSSREFS

Cf. A064413.

Other LCM-transforms are A061446, A265574, A265575.

Sequence in context: A274528 A166248 A180257 * A083040 A083899 A190263

Adjacent sequences:  A265573 A265574 A265575 * A265577 A265578 A265579

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Jan 02 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 1 04:37 EDT 2020. Contains 334758 sequences. (Running on oeis4.)