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: A143659 A174367 A123100 * A124339 A089772 A195742
Adjacent sequences: A033144 A033145 A033146 * A033148 A033149 A033150
hard,nonn,base
Jeff Burch (jmburch(AT)osprey.smcm.edu)
More terms from David W. Wilson (davidwwilson(AT)comcast.net).