#include <iostream>
#include <cstdio>
#include <cstring>
#include <cmath>
#define N 500000
using namespace std;
int n,m,S,T,tmp1,tmp2,tot;
int idx,head[N],cur[N],q[N],ans1[N],ans2[N];
int e[N],ne[N],w[N];
bool b[N];
int r[N],c[N];
int ans;
bool vis[N];
int to[N];
inline void add(int u,int v,int f)
{
e[idx]=v;
w[idx]=f;
ne[idx]=head[u];
head[u]=idx++;
}
inline bool bfs()
{
int f=0,t=0;
memset(cur,-1,sizeof(cur));
q[t++]=0;
cur[0]=0;
while(f<t)
{
int now=q[f++];
for(int i=head[now]; ~i; i=ne[i])
{
int v=e[i];
if(cur[v]==-1&&w[i])
{
cur[v]=cur[now]+1;
q[t++]=v;
}
}
}
if(cur[T]!=-1)
return 1;
return 0;
}
inline int dfs(int x,int f)
{
if(x==T)
return f;
int w1,used=0;
for(int i=head[x]; ~i; i=ne[i])
{
int v=e[i];
if(cur[v]==cur[x]+1&&w[i])
{
w1=dfs(v,min(f-used,w[i]));
w[i]-=w1;
w[i^1]+=w1;
used+=w1;
if(used==f)
return f;
}
}
if(!used)
cur[x]=-1;
return used;
}
void dinic()
{
while(bfs())
ans-=dfs(0,0x3f3f3f3f);
}
int main()
{
memset(head,-1,sizeof head);
cin>>n;
S=0,T=10000;
while(1)
{
ans++;
S++;
for(int i=1; i<S; i++)
if(sqrt(i+S)==(int)(sqrt(i+S)))
add(i,S+5000,1),add(S+5000,i,0);//拆点
add(0,S,1);
add(S,0,0);
add(S+5000,T,1);
add(S+5000,T,0);
dinic();
if(ans>n)
break;
}
cout<<S-1<<endl;
for(int i=1; i<S; i++)
if(!vis[i])
{
int now=i;
do
{
vis[now]=1;
cout<<now<<" ";
for(int j=head[now]; j!=-1; j=ne[j])
{
int v=e[j];
if(v<=n)
continue;
if(!w[j])
{
now=v-5000;
break;
}
}
}while(!vis[now]);
cout<<endl;
}
return 0;
}