OFFSET
1,1
LINKS
Chris K. Caldwell and G. L. Honaker, Jr., Prime Curios! 943
EXAMPLE
n=15 : reversal(15)=51. (15*51!-1) = 23266781299310734203363645247039548165948895800254791679999999999999 which is prime. Hence, 15 is in sequence.
MAPLE
with(StringTools):KD:= proc() local a; a:=n*parse(Reverse(convert(n, string)))!-1; if isprime(a) then RETURN (n) fi: end: seq(KD(), n=1..1000);
with(StringTools):KD:=proc()local n, a, c; c:=1; for n from 1 to 1000 do; a:=n*parse(Reverse(convert(n, string)))!-1; if isprime(a) then lprint(c, n); c:=c+1; fi; od; end: KD();
MATHEMATICA
Select[Range[80], PrimeQ[#*IntegerReverse[#]!-1]&] (* The program generates the first 14 terms in the sequence. To generate more, increase the Range constant but the program may take a long time to run. *) (* Harvey P. Dale, Jan 31 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jul 22 2013
EXTENSIONS
a(29)-a(30) from Giovanni Resta, Jul 22 2013
STATUS
approved