OFFSET
1,2
COMMENTS
EXAMPLE
a(4)=16, a(5)=2^1 * 3^6 = 1458;
a(6)= 2^1 * 3^4 * 5^5 * 7^8 = 2918430506250.
MATHEMATICA
a[1]=1; id[n_]:=id[n]=IntegerDigits[a[n-1]]; a[n_]:=a[n]= Times@@Table[Prime[i]^id[n][[i]], {i, 1, Length[id[n]]}]; {1, Table[a[n], {n, 2, 7}]}//Flatten
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 16 2006
STATUS
approved