|
|
A156615
|
|
a(1)=2, a(n+1) is the smallest prime > n*final digit of a(n).
|
|
6
|
|
|
2, 3, 7, 23, 13, 17, 43, 23, 29, 83, 31, 13, 37, 97, 101, 17, 113, 53, 59, 173, 61, 23, 67, 163, 73, 79, 239, 251, 29, 263, 97, 223, 97, 233, 103, 107, 257, 263, 127, 277, 281, 43, 127, 307, 311, 47, 331, 53, 149, 443, 151, 53, 157, 373, 163, 167
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
2, 3 (>2=1*2), 7 (>6=2*3), 23 (>21=3*7).
|
|
MAPLE
|
A010879 := proc(n) n mod 10 ; end:A156615 := proc(n) option remember ; if n = 1 then 2; else nextprime((n-1)*A010879(procname(n-1))) ; fi; end: L := [seq(A156615(n), n=1..80)] ;
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected from a(2) on, corrected erroneous examples. Added keywords base,less R. J. Mathar, Feb 13 2009
|
|
STATUS
|
approved
|
|
|
|