OFFSET
1,1
EXAMPLE
249 = 3*83; 24983 = 7*43*83; both numbers have the same largest prime factor, so 249 is in the sequence.
PROG
(MuPAD) for n from 2 to 500 do A := ifactor(n); b := A[nops(A)-1]; zi := trunc(log(10, b)+1); nn := n*10^zi+b; B := ifactor(nn); if A[nops(A)-1] = B[nops(B)-1] then print(n, b); end_if; end_for;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefan Steinerberger, Nov 19 2005
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 29 2010
STATUS
approved