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

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A111465 a(1) = 1, a(n+1) = a(n)/T(n+1), if T(n+1) divides a(n), else a(n+1) = a(n) *T(n+1), where T(n) = n*(n+1)/2 is a triangular number (A000217). 1
1, 3, 18, 180, 12, 252, 9, 324, 14580, 801900, 12150, 947700, 86240700, 821340, 98560800, 13404268800, 87609600, 14981241600, 78848640, 16558214400, 3824947526400, 967711724179200, 3506201899200, 11687339664, 3798385390800 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MAPLE

T:=n->n*(n+1)/2: a[1]:=1: for n from 1 to 28 do if type(a[n]/T(n+1), integer)=true then a[n+1]:=a[n]/T(n+1) else a[n+1]:=a[n]*T(n+1) fi od: seq(a[n], n=1..29); # Emeric Deutsch, Aug 11 2005

MATHEMATICA

nxt[{n_, a_}]:=Module[{tr=((n+1)(n+2))/2}, {n+1, If[Divisible[ a, tr], a/tr, a*tr]}]; Transpose[NestList[nxt, {1, 1}, 30]][[2]] (* Harvey P. Dale, Aug 22 2014 *)

CROSSREFS

Cf. A000217.

Sequence in context: A080687 A231619 A223895 * A247029 A108994 A006472

Adjacent sequences:  A111462 A111463 A111464 * A111466 A111467 A111468

KEYWORD

easy,nonn

AUTHOR

Amarnath Murthy, Aug 05 2005

EXTENSIONS

More terms from Emeric Deutsch, Aug 11 2005

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 December 13 19:20 EST 2017. Contains 295976 sequences.