OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
Otto Forster, ARIBAS Interpreter for Arithmetic
EXAMPLE
2489 and 9842 are both multiples of 19.
MATHEMATICA
okQ[n_]:=Module[{idn=IntegerDigits[n], ridn}, ridn=Reverse[idn]; Divisible[ FromDigits[ ridn], 19] && idn!=ridn]; Select[19*Range[1000], okQ] (* Harvey P. Dale, Dec 03 2011 *)
Select[19 Range[1000], !PalindromeQ[#]&&Divisible[IntegerReverse[#], 19]&] (* Harvey P. Dale, Sep 20 2021 *)
PROG
(ARIBAS) Programs for A062916 etc: If "m <> rev and" is deleted in line 8, one obtains the sequences which include palindromes (e.g., A062907).
(ARIBAS) function A0629xy(n, stop: integer); var m, rev: integer; begin m := n; while m < stop do rev := int_reverse(m); if m <> rev and rev mod n = 0 then write(m, " "); end; inc(m, n); end; end;
(PARI) Palin(x)= { if (x==0, return(1)); if (x==10, return(0)); y=z=x; ds=ceil(log(x)/log(10)); t=10^(ds - 1); for (i=1, ds\2, d=y-10*(y\10); y\=10; e=z\t; z-=t*e; t/=10; if (e!=d, return(0)) ); return(1) }
{ default(realprecision, 50); n=0; forstep (m=0, 10^9, 19, if (Palin(m), next); x=m; r=0; while (x>0, d=x-10*(x\10); x\=10; r=r*10 + d); if (r%19 == 0, write("b062916.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 12 2009
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jul 01 2001
EXTENSIONS
More terms from Klaus Brockhaus, Jul 02 2001
STATUS
approved