This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A073362 #8 Mar 20 2015 03:32:51 %S A073362 1,6,19,48,109,234,355,552,1009,1518,2371,3804,4141,6342,8803,12096, %T A073362 14389,18438,24043,27720,36397,45366,60499,75876,80137,97566,114931, %U A073362 140892,166321,205926,218587,266664,292429,342006,394651,477336,481429 %N A073362 Nested floor product of n and fractions (k+1)/k for all k>0 (mod 5), divided by 5. %F A073362 a(n)=(1/5)[...[[[[n(2/1)](3/2)](4/3)](5/4)](7/6)]...(k+1)/k]..., k>0 (mod 5), where [x] = floor of x; this infinite nested floor product will eventually level-off at a(n). %e A073362 a(1)=1 since (1/5)[[[[1(2/1)](3/2)](4/3)](5/4)]=1 %t A073362 f[n_] := Block[{k = 1, p = n}, While[q = Floor[p*(k + 1)/k]; q != p, p = q; k++; If[ Mod[k, 5] == 0, k++ ]]; p/5]; Table[ f[n], {n, 1, 37}] (* _Robert G. Wilson v_ *) %Y A073362 Cf. A073359, A073360, A073361. %K A073362 easy,nonn %O A073362 1,2 %A A073362 _Paul D. Hanna_, Jul 29 2002 %E A073362 More terms from _Robert G. Wilson v_, Dec 27 2003