Original entry on oeis.org
4, 5, 7, 9, 25, 29, 49, 79, 1613, 15205
Offset: 1
-
v=[1,0,1]; for(n=4,1e4, if(ispseudoprime(t=v[1]+v[2]+v[3]), print1(n", ")); v=[v[2],v[3],t]) \\ Charles R Greathouse IV, Nov 18 2013
Original entry on oeis.org
2, 3, 11, 37, 634061, 7256527, 1424681173049, 123937002926372177911
Offset: 1
A056816
Primes in the tribonacci sequence A000213.
Original entry on oeis.org
3, 5, 17, 31, 193, 653, 1201, 46499, 532159, 3311233, 128199521, 20512526282340991, 6036724301884645488192191, 2170304813579195568101904406358277391153
Offset: 1
A156761
Tribonacci primes that are also primes when their digits are reversed.
Original entry on oeis.org
3, 5, 17, 31, 1201, 128199521
Offset: 1
a(5) = 1201 because 1201 is prime, and is the 13th tribonacci number A000213(13), and R(1201) = A004086(1201) = 1021 is also prime. a(6) = 128199521 = the 10th tribonacci prime A056816(10), and its digital reverse 125991821 is also prime.
-
Select[LinearRecurrence[{1,1,1},{1,1,1},200],AllTrue[{#,IntegerReverse[ #]},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 31 2019 *)
Showing 1-4 of 4 results.
Comments