OFFSET
1,1
EXAMPLE
Dropping first and last digit of 4199 leaves 19, which is the largest prime factor of 4199=13*17*19.
MATHEMATICA
Select[Range[100, 50000], (First@Last@FactorInteger@# == FromDigits@Rest@Most@IntegerDigits@#) &]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Resta, Feb 15 2006
STATUS
approved