A101902 Numbers n that are not of the form ab+bc+cd+de+ea with 1<=a<=b<=c<=d<=e.
1, 2, 3, 4, 6, 8, 12, 14, 18, 30, 38, 42, 62
Offset: 1
Crossrefs
Cf. A025052 (n not of form ab + bc + ca).
Programs
-
Mathematica
nn=100; cnt5=Table[0, {nn}]; Do[n=a*b+b*c+c*d+d*e+e*a; If[n<=nn, cnt5[[n]]++ ], {a, nn}, {b, a, nn}, {c, b, nn}, {d, c, nn}, {e, d, nn}]; Flatten[Position[cnt5, 0]]
Extensions
Definition corrected by Ivan Neretin, Dec 14 2016
Comments