A104972 Numbers with 5 distinct digits {1,2,3,4,5} such that all adjacent digits (as well as first and last digits) are coprime.

12345, 12354, 12534, 12543, 13254, 13452, 14325, 14352, 14523, 14532, 15234, 15432, 21345, 21435, 21453, 21543, 23145, 23415, 23451, 23541, 25143, 25341, 25413, 25431, 31254, 31452, 32145, 32154, 32514, 32541, 34125, 34152, 34512, 34521, 35214, 35412, 41235, 41253, 41325, 41523, 43125, 43215, 43251, 43521, 45123, 45213, 45231, 45321, 51234, 51432, 52134, 52143, 52314, 52341, 53214, 53412, 54123, 54132, 54312, 54321

Offset

1,1

Links

Table of n, a(n) for n=1..60.

Mathematica

aadcpQ[k_]:=Total[Boole[CoprimeQ@@@Partition[PadRight[{}, 6, k], 2, 1]]]==5; FromDigits/@Select[Permutations[IntegerDigits[ 12345]], aadcpQ] (* Harvey P. Dale, Jan 28 2025 *)

Crossrefs

Cf. A104971, A104973.

Sequence in context: A350153 A251949 A178475 * A193493 A375692 A091341

Adjacent sequences: A104969 A104970 A104971 * A104973 A104974 A104975

Keyword

full,nonn,base,fini

Author

Zak Seidov, Mar 30 2005

Status

approved