login
A224858
Numbers n such that n*reversal(n)! - 1 is prime.
0
2, 3, 5, 7, 8, 11, 15, 30, 42, 58, 61, 64, 74, 77, 432, 500, 520, 601, 640, 675, 717, 888, 910, 940, 943, 950, 951, 957, 1210, 2100
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
Sequence in context: A069353 A300163 A352204 * A090704 A112055 A291485
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jul 22 2013
EXTENSIONS
a(29)-a(30) from Giovanni Resta, Jul 22 2013
STATUS
approved