STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
1;
1, 2;
1, 3;
1, 2, 4;
1, 5;
1, 2, 3;
1, 7;
1, 2, 4, 8;
1, 3, 9;
1, 2, 5;
1, 11;
1 1, 2 1, 31, 2, 41, 51, 2, 31, 71, 2, 4,81, 3, 91, 2, 54; - Geoffrey Critzer, Feb 08 2015
1 1, 2 1, 31, 2, 41, 51, 2, 31, 71, 2, 4,81, 3, 91, 2, 5- Geoffrey Critzer, Feb 08 2015
Table[Prepend[Select[Divisors[n], PrimeNu[#] == 1 &], 1], {n, 1, 10}]//Grid (* Geoffrey Critzer, Feb 08 2015 *)
approved
editing
_Reinhard Zumkeller_, , <a href="/A210208/b210208.txt">Rows n=1..5000 of triangle, flattened</a>
_Reinhard Zumkeller, _, <a href="/A210208/b210208.txt">Rows n=1..5000 of triangle, flattened</a>
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Mar 18 2012
proposed
approved
editing
proposed