Ideone.com

download

copy

f 1=[1]
f n|x<-f$n-1=last[k|k<-[1..n],p<-[1..n],k*p<n,take(k*p)x==([1..k]>>take p x)]:x
g=reverse.f
 
main = print $ g 30

Success #stdin #stdout 0s 4696KB

stdin

copy

Standard input is empty

stdout

copy

[1,1,2,1,1,2,2,2,3,1,1,2,1,1,2,2,2,3,2,1,1,2,1,1,2,2,2,3,1,1]

https://ideone.com/CTGlIH

language:

Haskell (ghc 8.4.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!