A156069 a(n) = A156071(n)/n.
3, 19, 127, 954, 7633, 63609, 545221, 4770684, 42406081
Offset: 1
Links
- Blaine, How about a math puzzle?
- Albert Franck, Puzzles, see item 7.
Extensions
New name from Michel Marcus, Dec 01 2013
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Sequence of sets of n-digit numbers that are weakly polydivisible and strictly pandigital is (with A = 10): {0} {1} {12} {123,321} {} {} {123654,321654} {} {38165472} {381654729} {381654729A}
polyQ[q_]:=And@@Table[Divisible[FromDigits[Take[q,k]],k],{k,Length[q]}]; normseqs[n_]:=Join@@Permutations/@Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]; Sort[FromDigits/@Join@@Table[Select[normseqs[n]-1,First[#]>0&&polyQ[#]&],{n,8}]]
Triangle is: {1} {1,2} {1,2,3} {3,2,1} {1,2,3,6,5,4} {3,2,1,6,5,4} {3,8,1,6,5,4,7,2} {3,8,1,6,5,4,7,2,9} {3,8,1,6,5,4,7,2,9,10}
polyQ[q_]:=And@@Table[Divisible[FromDigits[Take[q,k]],k],{k,Length[q]}]; Flatten[Table[Select[Permutations[Range[n]],polyQ],{n,8}]]
8 = 2 * 4. 81 = 3 * 27. 816 = 4 * 204. 8165 = 5 * 1633. 81654 = 6 * 13609. 816543 = 7 * 116649. 8165432 = 8 * 1020679. 81654327 = 9 * 9072703.
Comments