1,2

Index entries for sequences related to factorial numbers

Do[ If[ RealDigits[ n ][ [ 1 ] ] == Take[ RealDigits[ n! ][ [ 1 ] ], RealDigits[ n ][ [ 2 ] ] ], Print[ n ] ], {n, 1, 10^5} ]

Sequence in context: A139949 A103429 A123100 this_sequence A124339 A089772 A110899

Adjacent sequences: A033144 A033145 A033146 this_sequence A033148 A033149 A033150

hard,nonn

Jeff Burch (jmburch(AT)osprey.smcm.edu)

More terms from David W. Wilson (davidwwilson(AT)comcast.net).