OFFSET
1,2
COMMENTS
LINKS
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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 29 2005
STATUS
approved