login
A105179
Numbers having in decimal representation the same final digit as their largest proper divisor has; a(1) = 1.
1
1, 11, 15, 20, 25, 31, 40, 41, 45, 60, 61, 71, 75, 80, 100, 101, 105, 120, 121, 125, 131, 135, 140, 143, 151, 160, 165, 175, 180, 181, 187, 191, 195, 200, 209, 211, 220, 225, 240, 241, 251, 253, 255, 260, 271, 275, 280, 281, 285, 300, 311, 315, 319, 320, 325
OFFSET
1,2
COMMENTS
A010879(A032742(a(n))) = A010879(a(n));
A008602 is a subsequence apart from the initial term;
A030430 is a subsequence.
EXAMPLE
n=105=3*35 and 105 == 35 modulo 10, therefore 105 is a term.
MATHEMATICA
Join[{1}, Select[Range[2, 400], Last[IntegerDigits[Divisors[#][[-2]]]] == Last[IntegerDigits[#]]&]] (* Harvey P. Dale, Apr 21 2011 *)
PROG
(PARI) lpf(n)=factor(n)[1, 1]
is(n)=if(n%2, n%15==0||n%25==0||n==1||lpf(n)%5==1, n%20==0) \\ Charles R Greathouse IV, Jan 02 2013
(Haskell)
a105179 n = a105179_list !! (n-1)
a105179_list = 1 : filter (\x -> a010879 (a032742 x) == a010879 x) [2..]
-- Reinhard Zumkeller, Jan 10 2013
CROSSREFS
Sequence in context: A031944 A049354 A343823 * A120156 A237278 A265114
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 29 2005
STATUS
approved